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1 YEAR FOR ONLY $28 

SAVK tl9 OKI' I UK (X)VKR I'RICK 

1 YEAR WITH DISK ONLY $79 




BY CLAYTON WALNUM 

The latest Consumer Electronics Show was 
recently held in Chicago, and Atari amazed 
everyone by unveiling a new product that vir- 
tually no one had heard of before the show. 
Although the rumored 16-bit game system has 
yet to be released, Atari displayed a new 
hand-held color game machine. The unit, 
which is about the size of a videotape, has 
a 3 '/2-inch screen capable of displaying 16 
colors simultaneously. An eight-position con- 
troller pad takes the place of a joystick, while 
several other buttons take on various control 
and firing duties. 

One of the machine's unique features is its 
ability to flip the screen image so that it can 
be held with the controller pad on either the 
left or right side. That ought to make all you 
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lefties happy. But what really makes this unit 
special is that, unlike the hand-held game 
machines currently available, the new Atari 
model is not limited to a single game, but 
rather incorporates cartridges, just like its 
larger cousins. Six games from Epyx have al- 
ready been announced. The "cartridges" are 
actually small cards about the size of a cred- 
it card. Each game card can hold as much 
as two megabytes of data, although the cur- 
rent cards hold only 128K. 

The $149 machine, which is projected for 
release in September, runs for up to eight 
hours on six "AA" batteries and includes a 
headphone jack. How did Atari manage to 
slip such a surprise into the show? The fact 
is that the new game machine was originally 
developed by Epyx, which intended to release 



it themselves but for some reason (rumor has 
it that the announcement of the Nintendo 
"Game Boy," a similar machine, scared the 
powers-that-be at Epyx) decided to drop the 
project. Atari apparently decided the machine 
was a much better unit than the one planned 
by Nintendo (and, if all the specifications are 
accurate, it is), and decided to take achance 
with it, making the necessary agreements 
with Epyx. 

So although the new game machine wasn't 
developed by Atari's research department, it 
is a perfect addition to their videogame line. 
It will be interesting to see how Atari han- 
dles the marketing of this unique product- 
one that could prove to be immensely popu- 
lar. Let's hope they take the aggressive ap- 
proach they've been promising. fpi 
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Disk utility package 



NEWS 



Imaie Scanner 



Innovative Concepts has announced several 
new products for the 8-bit Atari computers, 
including Easy Scan II, a graphics image 
scanner that replaces the original Easy Scan 
and now supports graphics modes 8, 9, 10, 
11 and 15. Scanned graphics can be printed, 
displayed on the monitor or saved to disk as 
standard 62-Sector picture files. The scanner, 
which sells for $99.95, requires an XL or XE 
with 128K and an Epson-compatible printer. 
Original Easy Scan owners can upgrade their 
software for $20.00. 

Also available from Innovative Concepts is 
"Ramdrive -t- XL to XE," a 128K upgrade 
for the Atari 800XL. Innovative Concepts 
claims that this upgrade makes the 800XL 
fully compatible with the 130XE, including 
the extended ANTIC modes. The kit includes 
the upgrade board, RAM chips, and instruc- 
tions for use with DOS 2.5, MyDOS, Spar- 
taDOS and the SpartaDOS X cartridge. It 
sells for $59.95. 

Finally, Innovative offers "The Happy 
Doubler," a utility that allows Happy 1050 
owners to program up to eight drives for com- 
plete compatibility with ICD's U.S. Doubler. 
This $19.95 package also includes an extra 
disk full of additional utilities. 

Innovative Concepts 

31172 Shawn Drive 

Warren, MI 48093 

(313) 293-0730 

CIRCLE #108 ON READER SERVICE CARD. 



A new package just released by Creative 
Software Systems provides disk-drive own- 
ers with a set of handy utilities, including a 
sector editor, a lile copier and two sector 
copiers. The system supports most DOS fun- 
ctions—lock, unlock, rename, delete and 
format— and adds some new ones: verify, 
close and undelete. Also, directories may be 
sorted and printed. The utilities are fully 
menu-driven and run on any 8-bit Atari with 
at least 48K. The price is $15.95. 

CIRCLE #109 ON 



Creative Software Systems has also 
released a self-documenting disassembler, 
which can disassemble from a disk file, from 
memory or from a sector, inserting comments 
on key memory locations. The listing may be 
sent to a disk file or a printer. The disassem- 
bler sells for $5.95. 

Creative Software Systems 

8715 Valley View, #3 

Barrien Springs, MI 49103 

(616) 471-3745 

SERVICE CARD. 




New computer stands 



CompuStac Company has announced their 
new CompuStac height-adjustable pedestal- 
type computer stands. The CompuStac is 
unique in that it can be adjusted to the exact 
height required by the user, and the pedestal 
design makes it convenient to get your com- 
puter off your desk while keeping it within 



easy reach. Prices vary depending on the 
model chosen. 

CompuStac Company 

819 West 4th Street, Suite 7 

San Pedro, CA 90731 

(213) 831-8017 
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A helpful arachnid 



If you're worried about your computer 
equipment getting stolen, there's something 
you can do about it. The Spider, a new 
product from AlteCon Data Communica- 
tions, is a battery-operated alarm that will 
warn you when someone is tampering with 
your equipment. The Spider has five "tenta- 
cles," each of which may be attached to a 
piece of your equipment. If the tentacles are 



cut or ripped off, or the alarm itself is tam- 
pered with, a 98-decibel alarm will sound for 
up to two and a half hours. The Spider is 
priced at $107.50. 

AlteCon Data Communications, Inc. 

1333 Strad Avenue 

North Tonawanda, NY 14120 

(716) 693-2121 

CIRCLE #111 ON READER SERVICE CARD. 

SEPTEMBER A.N.A.L.O.Q., Computing 



A LETTER FROM THE PUBLISHER 

It's no secret that the U.S. Atari market isn't as healthy as it could be. The 8-bit com- 
puter line has declined in popularity, while the ST, though it has gained a respecta- 
ble following in Europe, has yet to find its niche in the states. For these reasons, most 
software companies won't develop products for the Atari systems. 

This lack of software support has a subtle, but nonetheless powerful impact on maga- 
zines that rely on the Atari market for their well-being. The cold fact is that adver- 
tisers for the 8-bit products are nearly nonexistent, and there are precious few 
advertisers for ST products. 

Since, for profitable publications, we depend to a great extent upon advertising, 
we are left with two choices if our publications are to continue: We can increase 
the price of our magazines, thus forcing readers to pick up the tab for the lock of 
advertising, or we can find a way to make the magazines less expensive to pro- 
duce. We've opted for the latter. 

There are, of course, many ways we can cut the magazines' publishing costs: We 
can reduce the page count. We con get rid of the color. We con pay contributors 
less. Unfortunately, none of these options, nor others, not mentioned here, makes 
much of a difference in the long run. 

After much thought, we decided that although the Atari market is not capable of 
supporting two Atari-specific magazines from a single publisher, it is active enough 
to support one. So we're going to combine ANALOG Computing and ST-LOG into 
a single monthly publication. 

Don't panic! When you think about it, the merging of the magazines will allow us 
to produce a much nicer publication. And since the single magazine will be larger 
than either of the individual ones, we won't have to cut much from our content. In 
fact, after doing some analysis, we've discovered that we will be able to offer the 
same columns, departments and types of features you've come to expect. Little will 
change, except that everything will come to you under a single cover. 

The November issue will be the first combination magazine. Next month we'll give 
you more details on what the new publication will be like, as well as our plans for 
the future. (We plan some nice surprises, like a reduction in the cost of magazine disks.) 

We believe that merging ANALOG Computing and ST-LOG is the best solution to 
a tough problem. It allows us to continue publication while giving you your full money's 
worth. It also gives Atari a chance to prove their claim that in the coming year they 
will emerge a strong presence in the U.S. When that time comes, we plan to reevalu- 
ate the situation and possibly separate the publications once again. 

Recently, Atari supporters hove had to stick together like never before. We've been 
there, providing support and information for nearly nine years. And we plan to be 
there for many more. 

Here's to the future! 




Lee H. Poppas 
Publisher 
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Disk 800XL 



A RAM disk (a part of memory that DOS 
thinks is a fast disk drive) is a nice thing to 
have. Ask any 130XE owner. Unfortunately, 
the RAM disk driver that comes with DOS 
2.5 only works with the extended memory of 
the 130XE. And the poor and helpless 800XL 
owner is left with nothing but dreams of all 
the things he could do if only. . . . 

Building the RAM disk 
without ^lue 

Before taking the program apart to see how 
it works, let's see it at work. Type in the data 
from listing one as MDRIVE.OBJ using the 
M/L EDITOR. Next format a fresh disk and 
write the system files to it (using option H 
from the DOS menu; make sure you're us- 
ing DOS 2.5). Now copy MDRIVE.OBJ to 
the new system disk, and finally rename it 
to RAMDISK.COM. 

Don't forget to mark the disk as contain- 
ing the 800XL RAM disk to prevent future 
confusion with the 130XE version. 

Putting it to the test 

To use the RAM disk, simply boot the new 
system disk. After loading DOS.SYS, the 



by Jerry van Dijk 

RAM disk driver is automatically loaded. Af- 
ter a message, the boot continues normally 
with BASIC, DUP or AUTORUN.SYS. Now 
you have a RAM disk called D5: at your dis- 
posal. Try a directory of D5: (Press "A" from 
the DOS menu and type "D5:" at the "fil- 
spec" prompt). If everything went according 
to plan, you'll see a short flash (which can- 
not be helped since every time D5: is ac- 
cessed the operating system is temporarily 
disabled) and find yourself with 108 free Sec- 
tors left on D5: for your use. 

The D5: device can be treated like any oth- 
er drive on your system, with four minor ex- 
ceptions: 

1. Part of the runtime code of the RAM disk 
driver uses page 6. From $6BC (1724) up to 
and including $6FF (1791) to be precise. So 
you'll have to be careful with programs that 
store ML routines here. Most will work with- 
out a hitch, however, and for those that 
won't. . .well, you can't have everything. 

2. When power is switched off or the sys- 
tem crashes, you lose the contents of the 
RAM disk. Such is the nature of the beast, 
so beware. (It is, of course. Reset-resistant.) 

3. Contrary to normal disks, D5: has only 
one directory Sector, which means the maxi- 



mum number of files possible is eight. This 
is reasonable. The small number of available 
Sectors and the need to save them back to a 
normal disk when shutting down makes it un- 
likely that more files will ever be needed. It 
also means there are seven more Sectors for 
you to play with. If you do try to access one 
of the nonexistent directory Sectors, DOS 
returns with error code 144 (disk error). 

4. Last, it's impossible to reformat the D5: 
device from DOS. The only way to reformat 
D5: is to run the RAMDISK.COM program 
again using the L option from the DOS menu. 
If you accidentally do try to format D5:, DOS 
will show you the errors of your ways with 
error code 168 (invalid command). 

If you're working in BASIC, you can also 
use the RAM disk to store DURSYS (and, 
if activated, MEM.SAV) and access it instant- 
ly. To do this, boot a disk containing the 
800XL RAM disk file. From BASIC, go to 
DOS and copy the DURSYS file to D5:. 
Then return to BASIC and type POKE 
5439,53 and press Return. Type DOS again 
and the menu should appear immediately. 
Any BASIC program in memory will be over- 
written, so you should have MEM.SAV ac- 
tivated, continued on page 26 
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by Matthew J.W. Ratcliff 
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/\ harp Shooter is a light-gun game for 
^ 'any Atari XL, XE or XEGS computer 
^ equipped with an Atari light gun. A 
I y challenging target-practice game, it re- 
\i/ quires quick reflexes and a good eye, 
and will improve your shooting skills for Bug 
Hunt, Barnyard Blaster, Cross Bow and other 
Atari shoot- 'em-ups. Sharp Shooter is best 
when played with several friends for some 
neighborly competition. 



Typing it in 



To create your copy of Sharp Shooter, you 
may either type in Listing 1 using M/L Edi- 
tor (found elsewhere in this issue) or type in 
the Action! listings (Listings 1 and 2) and 
compile them yourself. The compiled game, 
as created by Listing 1 or as supplied on this 
month's disk, may be loaded from DOS as 
a binary file, without BASIC or any external 
cartridge installed. If you wish to compile the 
Action! listings, you will need the Action! 
cartridge. 



The iame 



When the program is run, the title screen 
will display a reminder to attach the light gun. 
Press the gun's trigger to start the game, or 
the escape key to return to DOS. 

The game screen is presented in the form 
of six pistol targets, three across the top and 
three across the bottom. Each is made up five 
concentric circles, the center, of course, be- 
ing the bull's-eye. 

Sharp Shooter selects a target at random 
and draws a rectangle around it. Take aim and 
squeeze off a shot. If the bull's-eye is hit, a 
pleasant "ding" sound will be heard. A com- 
plete miss of the target results in a dull thud. 
A hit anywhere else on the target is ac- 
knowledged by a brief "splat" sound, and the 
game continues. Each target is selected ten 
times throughout the game, for a total of 60 
shots per game. Since each target can be ran- 
domly selected at any time, you cannot an- 
ticipate where to aim next. This hones 
reflexes and hand/eye coordination used to 
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aim the gun. Press the escape key during 
game play to quit early. 

At the end of a game, firing statistics are 
tallied and displayed. At the top of the screen, 
the average buUets-fired-per-minute statistic 
is presented. A good shooter will average 
about 40 to 45. Total successful target hits are 
displayed, out of the 60 shots fired. Below 
this is the missed-shot count— the sum of all 
shots that hit beyond the outermost ring of 
the selected target. A count of bull's-eyes is 
displayed, and score and accuracy round out 
the statistics. During game play each bullet's 
distance from dead center is calculated. Of 
course, the closer to the center, the higher 
the score. Accuracy is a percentage based on 
total bull's-eyes accrued versus total shots 
fired (60). A running high score and best ac- 
curacy are also presented. 

Programming notes 

Action! programmers may wish to take a 
look at GUNREAD.ACT. This procedure, 
GUNREAD, returns the light gun's coor- 
dinates. The caller must pass a pointer to the 
X (card) and y (byte) variables to receive the 
readings. This routine maps the gun position 
to coordinates for the present graphics mode. 
The comments for this routine explain the al- 
gorithm fully. (This is an Action! version of 
the assembly language routine employed in 
Gun Assist from last month's issue of 
ANALOG.) 

You may wish to take a look at the func- 
tion ISqrt in the main program as well. 
This routine will return the square root of 
an integer as a byte value. The algorithm 
has been around for a long time; I found 
it in a 6502 assembly language program- 
ming manual written by Leo J. Scanlon. 

It works like this: Count the number of 
times successive odd numbers (1, 3, 5, 7, 
etc.) can be subtracted from the number of 
interest until it goes to zero or negative. 
This count is the integer square root. 

The integer square root comes in handy 



in many applications. It is used in Sharp 
Shooter to solve for the radius, r, of each 
shot from the center of the bull's-eye. The 
formula is r = ISqrt( x*x + y*y), where 
X and y are the differences between the 
bullet's impact point and the center of the 
current target. 

The code in the GAMESCREEN proce- 
dure generates all the pistol targets, from 
a table of circle centers, XCS and YCS. The 
circles are drawn entirely with integer math 
computations. A circle is eight-way sym- 
metrical, so only an eighth of the points 
need to be calculated. If you ever draw a 
circle using floating point calculations and 
sine or cosine functions, then you are wast- 
ing a lot of computing time! 

Conclusion 

Sharp Shooter is certainly not the most 
sophisticated Action! game to appear in the 
pages of ANALOG, but it does present the 
basics of implementing the Atari light gun 
in a game. The GUNREAD procedure may 
prove useful in your Action! programming 
efforts. Even if you don't program in Ac- 
tion!, it should be fairly simple for you to 
translate it to Atari BASIC. 

Sharp Shooter is my first Action! pro- 
gram. Now that I have finally taken the 
plunge into this high-level structured lan- 
guage for the Atari, I am seriously addict- 
ed. Its similarities to the C programming 
language — what I spend most of my work- 
day using— are very strong, and Acdon!'s 
editor is more sophisticated than some 
word processors. If you hope to move up 
to C, Pascal, Ada or some other "high-level 
structured language" in the future, I think 
that you will find the Action! language a 
superb stepping stone. 

Matthew Ratclijf, a frequent contributor 
to ANALOG Computing, lives in St. 
Louis, Missouri, with his wife and two 
children. 

continued on page 30 
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If you've spent any time away from BASIC 
(gaspl), you've probably run into something 
called "recursion." Simply put, recursion is 
a subroutine's ability to call itself. BASIC, 
as many people will tell you. doesn't support 
recursion. But, as I'm going to explain be- 
yond all levels of reason, not only does BA- 
SIC support recursion, but it's very easy to 
implement! 

Solving a problem usually requires break- 
ing it down into smaller problems. Some- 
times, however, you break down a problem 
and find you've got the original problem, 



by Gregg Hesling 

only in a smaller form. This type of solution 
is called "recursive." There are three main 
requirements for recursion: I) the subroutine 
must call itself; 2) on each .successive call, 
the problem must be the same but smaller in 
size; and 3) a "degenerative case" is always 
reached and handled directly, without call- 
ing the subroutine. The degenerative case is 
usually when the problem is so small it can 
be accomplished in one step. 

An effective example of this is an exponen- 
tial program that multiplies a number by it- 
self a certain number of times. If we wanted 



to know what 2 to the power of 3 (2 A3) was, 
we'd break it down into this: 

A) Set result to equal I. 

B) Multiply the result by 2. 

C) Multiply the result by 2. 

D) Multiply the result by 2. 

E) Print result. 

If we set up a subroutine to multiply the 
result by the root, we could call it from the 
main program three times. Or we could have 
the subroutine call itself three times and then 
return to the main program to print the re- 
sult. The latter would be a recursive solution. 
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To be flexible, we'd need the subroutine to 
multiply the result by the root a number of 
times equal to the exponent. If we decrement- 
ed the exponent every time we called the sub- 
routine, we'd be making the problem smaller 
and smaller until exponent was 0, and we'd 
stop multiplying. That is the degenerative 
case. Then we go back to the main program 
and print the results. 

Oops, one small problem. When we print 
the exponent, it will always equal 0! We could 
print the exponent first, but that's cheating. 
We could set up another variable to hold the 
original value of the exponent, but that has 
nothing to do with the article. Here is a recur- 
sive program with an interesting solution: 

10 ? "Root ■';:INPUT ROOT 

20 ? "Exponent ";:INPUT EKPOH 

ENT 

30 NUMBER=l:G05UB 60 

48 ? R00TJ"A";EXP0NEHT;"=";NU 

MBER 

50 END 

60 EKP0NENT=EKP0NENT-1:IF EKP 

ONENT>0 THEN GOSUB 60 

70 NUHBER=NUMBERKROOT:EXPONEN 

T=EHP0NENT+1 

80 RETURN 

If EXPONENT is 3, line 60 calls itself 
three times. When EXPONENT is 0, RE- 
SULT is multiplied by the ROOT and EX- 
PONENT is incremented. When RETURN 
is reached, the program pops back up to the 
end of line 60 and immediately falls through 
to line 70, repeating the process until EXPO- 
NENT is back to its original value and RE- 
SULT is the answer. Then, when it hits 
RETURN again, it returns control to line 30. 

"Now, wait," you're probably saying. 
"Aren't there other, easier ways to do this?" 
Well, sure. How about changing line 60 to 
this: 

60 FOR L00P=1 TO EKP0NENT:NUM 
BERrNUMBER«ROOT:NEKT LOOP:RET 
URN 

Now, wasn't that easy? This solution is, in 
most respects, better than the recursive so- 
lution! So why recurse? To answer that, let's 
look at a program that requires recursion. 
Then we'll see how to make recursion work 
in BASIC. 

The Towers of Hanoi 

The first program, HANOI. BAS, is based 
on a supposedly ancient idea, but I can't im- 
agine anyone thinking of it without having a 
computer to solve it. The problem is this: If 
you have three poles, with a number of disks 
stacked (in descending sizes, like a pyramid) 
on the first pole, how do you move them to 
the second pole without placing a larger disk 
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on top of a smaller one? You may, of course, 
place them on the third pole temporarily. 

The solution, ironically, is very simple; it's 
the execution that's difficult. To move the bot- 
tom disk from the first pole to the second 
without putting it on top of one of the other 
disks (all of which are smaller), you're go- 
ing to have to move the rest of the disks to 
the third pole. To get all of those disks to the 
third pole, you're going to have to move all 
the disks but the bottom two to the second 
pole. (It took me weeks to reason this out, 
so please make sure you understand it before 
continuing.) 

Let's rewrite that paragraph substituting 
pole #1 with "Source," pole #2 with "Dest," 
pole #3 with "Spare," and number of disks 
with N. 

To move N disks from the Source pole to 
the Dest pole, you're going to have to move 
N-1 disks to the Spare pole. Since the spare 
is now the desdnafion, let's swap the poles' 
labels and decrement N. To move N disks 
(really N-1 disks) to the new Dest pole, you're 
going to have to move N-1 (N-2) disks to the 
new Spare pole. Since the spare is now the 
desfination .... 

If we continue this until N equals 1 (the 
"degenerative case"), we'll just move the top 
disk from the Source pole to the Dest pole, 
whichever that happens to be. 

That was the easy part. Next we have to 
back up and "de-switch" the Dest and Spare 
poles in order to move the next disk (N-l-1) 
to the other pole. If you're completely baf- 
fled, it's because recursion usually does this. 
But don't get diskouraged! I suggest you re- 
vert to those old standbys, the pencil and pa- 
per. And be sure the pencil has a big eraser 
on it! 

Once we have N-1 disks on the spare pole 
and move the Nth disk to the Dest pole, we 
still aren't finished. Now we have to move N-1 
disks from the spare pole to the dest pole. 
The simplest solution would be to, of course, 
exchange the Spare pole with the Source pole. 



Now we have to move N-1 disks from the 
Spare pole to the Dest pole. 

It would take no less than 1,023 moves to 
solve for ten disks by hand. But by substitut- 
ing labels and adding recursion, we should 
be able to do it in under twenty lines of BA- 
SIC. That is why one should recurse! 

How recursion works 

In standard Pascal, the algorithm looks like 
Figure 1. You'll note that at the end of the 
subroutine there are three successive calls to 
the subroutine. In Pascal (and most lan- 
guages), whenever you call a subroutine, a 
whole new set of variables is created and the 
values are passed. When the subroutine 
returns, the original values are restored. Be- 
cause of this, variables with the same name 
can exist. Also because of this, BASIC 
"shouldn't" support recursion. If you used 
the same variable name in BASIC, you'd lose 
the original value without any chance of 
recovery. Since recursion needs that recov- 
ery (you're going to hate me for saying this), 
we have to save the values ourselves. 

Fortunately, it's easy. To save the variables, 
all you need to do is save them in an array. 
This way you only need a variable, such as 
LEVEL(X), to tell you which set of varia- 
bles to restore. Just replace X with a refer- 
ence number and you're all set. 

Alas, there is a price, and it can be a dear 
one. In Pascal, when you return from a 
subroutine and the new set of variables is 
tossed, you get all the RAM back. In BASIC, 
however, you have to declare your arrays (and 
their limits) before you use them. And when 
I say limits, I mean the maximum possible 
amount needed. And none of this is returned 
to you undl the program is finished. This is 
a serious drawback. BASIC, though, isn't of- 
ten used for professional purposes, and even 
with the reduced RAM, it should handle all 
of your needs. 

In the next two programs, I managed to cut 



PROCEDURE Towers CCount, Source, Dest, SpareJ 

BEGIN 
IF Count=l C* Degenerative case *) 
THEN 

C* Move the disk froM Source to Dest *3 
ELSE 
BEGIN 
Towers tCount-1, Source, Spare, Dest); 

c» Decrewent Count, swap Dest and spare ») 
Towers tl. Source, Dest, Spare); 
(* Count is set to 1, so an innediate Move is Made «) 
Towers CCount-l, Spare, Dest, Source); 

t» DecreMent Count, swap Source and Spare ») 
END; 



END; 



FIGURE 1 



down on space by using strings instead of ar- 
rays. But this also increases confusion, and 
I'm not sure where the trade-off should begin. 



Heap Sort 



Heap Sort is a sorting algorithm that sorts 
entries as you enter them. Since BASIC also 
doesn't support dynamic allocation (I'm not 
even going to get into that here), it isn't real- 
ly in order. It stores the entries in a pseudo- 
binary tree, with left and right pointers de- 
termining the order. To sort it out upon re- 
quest, we use— you guessed it— recursion. 
• We'll have to use pointers from a parent to 
its children (hi-tech computer jargon) because 
setting it up as a perfect binary tree in BA- 
SIC would mean reorganizing it every time 
something was added, and that would take far 
too much time and waste far too much space. 
To store, we just compare our number with 
the top number and go left or right appropri- 
ately. We keep comparing until we find a hole 
to store that number. If this sounds a little 
bit like recursion, you're learning quickly. It 
is recursion, but it's "easy" recursion because 
it doesn't store previous variables. We'll con- 
centrate on the "fetching" part of the pro- 
gram, which does. 

The array is stored something like this: 

5 
/ \ 

2 6 

/ \ Nl 
14 9 
/ / 

3 7 

The lowest number is all the way down the 
left side. The next-smallest number is its par- 
ent, and then the larger numbers are off to 
the right. We could go down the left side eas- 
ily to retrieve the number, but then how 
would we get back up? We'll need a pointer 
to point back to the previous number, or we'll 
quickly get lost. We can use an array or a 
string, depending on how much RAM you 
can waste. This way, with just a little help 
from recursion, we can figure out just where 
we're heading (and where we just came 
from.) 

Recursion works perfectly here because the 
problem is thus: We need to go all the way 
down the left side until we find the bottom 
number. We can rewrite this as "Go left un- 
til there is no more left to go." This is a clas- 
sic recursive action. The degenerative case 
is the bottom of the array, while the program 
is broken down into just one action: Go left 
(young man, go left). After we reach the bot- 
tom, we'll need to back up one. Thus, we'll 
need to store the previous number's position 
in an array variable. Then we'll go to the right 
and check for a left child. We don't store the 
position of a parent with a right child because 



we've already printed that number and don't 
need to return there. When we're complete- 
ly through with the right leg, we just jump 
back to the point before the left leg, as every- 
thing beneath that has been "extracted." 

Gee, that was short, but that's pretty much 
all there is to it. Whether you dissect the pro- 
gram to figure out how it ticks, or quietly 
shelve it in your library (or wonder why you 
bought a disk subscription), it's an. . .um. . . 
interesting program. 



QuikSort 



QuikSort is, in every instance I've seen, 
faster than any other sorting algorithm. Why 
this is, I'm not entirely sure, but for quite 
some time I've been denied the ability to use 
QuikSort in BASIC because it uses recursion. 
Well, it's finally here. 

QuikSort works on the premise of break- 
ing an array down to smaller arrays and sort- 
ing them. For instance, to sort "CEBDA" 
alphabetically, QuikSort would first sort "C" 
by moving it over and putting the "lesser" 
letters behind it, thus ending up with 
"BACED." The next step is to sort "BA," and 
then "ED." The final resuft, "ABCDE," is 
correct, took only three passes, was quite 
quick and was terribly confusing. Try it on 
a few other words and you'll discover how 
good QuikSort is. 



The problem comes when you need to sort 
"BA" and "ED." Unless your computer sup- 
ports multi-tasking, the computer needs to do 
one at a time and you need to remember the 
position of "ED." As in Heap Sort, all you 
need to do is store the location of the right 
array before sorting the left. If the left array 
needs to be broken down more, then this 
needs to be stored also, etc. So we label the 
strings (or arrays) FIRSTS and LASTS, and 
store that information. It eats up RAM, but 
the return in speed is definitely worth it. 

A few final words: As I tried to explain in 
the opening paragraphs, recursion is not a 
panacea. In actuality, there aren't many pro- 
grams that require recursion, or can even use 
it. And those that do should be thought over 
carefully to see whether or not they could be 
done in a simpler fashion. But some prob- 
lems just can't be beat when using recursion, 
and I hope you understand when to use this 
powerful tool (and when not to!) now. 

Gregg Hesling lives in sunny Southern 
California, but might as well live in Alaska 
for all the time he spends outdoors. He was 
disappointed on his nineteenth birthday when 
he realized that he knew everything there was 
to know about Atari BASIC, but had never 
done anything with the information. He feels 
better now. 
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1 REM XXXKK THE TOWERS OF HflKOI KXKKX 

2 REM KKMKKKK by GREGG HE5LIHG KKXKKXX 
5 GRAPHICS 0:POKE 710,e:POKE 769,14:P0 
KE 82,0:? "COUNT ■■;:IHPUT COUNT : IF COU 
NT<1 OR C0UNT>12 THEN 5 

3 REM RAM is not a probleM in this pro 
gran, so we indiscriwinantly waste it 
10 DIM P0LEt2,12},C0UNTfC0UNTJ,S0URCEC 
COUNTJ,DESTtCOUNTJ,SPflRECCOUNT) : POKE 7 
52,1:? "■«" 

14 REM Assign the poles tenporary labe 
Is and tell how Many discs are on each 

pole 

15 SOURCE=0:DEST=l:SPARE=2:POLEtSOURCE 
,0J=COUNT: POLE CDE5T,Q)=0: POLE C5PARE,0J 
:0 

19 REM Make the poles and put the disc 
s on pole ttl 

20 FOR fl=10 TO 21:P05ITI0N 6,0:? 
I"," i'^NEKT fl!? ■ 



25 FOR fl=l 
NT-A+l:B=ft 
OSITION 6- 
30 GOSUB 3 

loTO 40:REM 
save the 

133 P05ITI0 
]=C0UNT:S0 
LJ=DEST:SP 
35 REM Saw 
witch the 
37 fl=DEST: 

|nt-1:LEUEL 
40 LEUEL=L 

|ION 9,0:? 
43 P05ITI0 
UHTtLEUELJ 



TO C0UNT:P0LEt50 

INTCA/2J :C=tfi/2= 
B, A-C0UNT+2i:G05U 
0:IF C0UNT=1 THEN 

Move the top dis 
labels 

N 9,0:? "SAUING": 
URCE(LEUELJi:SOURC 
AREtLEVELJrSPARE 
e the current lab 
DE5T and SPARE po 
DE5T=5PARE;SPARE= 

LEUEL+1:G0T0 30 
EUEL-l:IF LEUEL<0 
"COMPLETE":END 
N 9,0:? "RESTORIN 
:SOURCE=SOURCE(LE 



URCE,A)=COU 
INTtA/23 J :P 
B 80: NEXT A 
GOSUB 50:G 
c and don't 

COUNTfLEUEL 
E:DESTtLEUE 

els, then s 

les 

A:COUNT=COU 

THEN POSIT 

G":COUHT=CO 
UELJ :DEST=D 
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ESTtLEUELJ : 5PARE=5PflRE tUEUEL) :GOSUB 9G 
45 REM Restore the previous labels, mo 
ve the top disc to the DE5T pole, and 
swap SOURCE with SPARE 

47 G05UB 5e:P05ITI0M 9,9:? "SWITCHING" 
: C0UNT=C0UNT-1 : ftzSOURCE : SOURCE=SPflRE : 5 
PARE=A:G0T0 30 

49 REM Move disc to top of screen 

50 ft=POLE(SOURCE,0) : POLE (SOURCE, OJ =ft-l 
:B=POLE{SOURCE,ft) : C= CB/2=INT CB/23 ) ! B=B 
-IHT(B/2J 

55 FOR D=(t TO 20 : POSITION S0URCE»13 + 6- 
B,21-D:G05UB 80:P0SITI0N S0URCE*13+1, 2 
2-D:G05UB 85:NEXT D 

59 REM Move disc frOM SOURCE to DEST 

60 POSITION 0,l:FOR ft=l TO flBSCDEST-50 
URCE)»13 : ? CHR$ C254+ f CDE5T-S0URCEJ >0) J 

; :next a 

70 fl=P0LE tDEST,0)+l: POLE (DEST, 0)=A: POL 

E(DE5T,A)=B*2+C-i:F0R D=21 TO ft+1 STEP 

-llPOSITIOM DEST*13+6-B,23-D:G0SUB 80 

74 REM Lower disc down to DEST 

75 POSITION DEST*13+1,22-D:G05UB 85:NE 
XT DiRETURN 

79 REM Print disc 

80 ? CHR$(32+121»C) J :F0R E=1 TO B*2 : ? 
"i";:NEXT E:? CHR$(32-7»C3 ;: RETURN 

84 REM Erase disc 

85 ? " "jCHRS(32+12Hf(D<13)3 ;CHRS( 
32-7»(D<13J3 ;" ":RETURN 

90 POSITION 0,0:? "C0UNT3"; COUNT,' P 

OSITION 19,0!? "LEyEL=":IF LEVEL THEN 
POSITION 24+LEUEL,0:? LEUEL-i;" "; 
93 POSITION 13»S0URCE+4,23:? "SOURCE"; 
iPOSITIOH 13*DE5T+4,23:? " DEST ";:P0 
SITION 13*SPARE+4,23:? "SPARE "J 
97 FOR L00P = 1 TO lOO.'NEXT LOOPiPOSITIO 
N 9,0:? " ":return :rem To spe 
ed things up, change 100 to i 



LISTING 2: BASIC 



3 REM KKKKKICKKKXK HEAPSORT XKKKKKKKKKM 
5 REM KKXXXK by GREGG HESLING KKKKKKX 

10 TRAP 10:CLR :? "Max. size/entry"; :I 
NPUT SIZE : RAM=INT ( (FRE (O) -SIZE-SOOJ / (S 
IZE+6J J :DIM ARRAYS CRAM»SIZEJ , A$(SIZEJ 

11 REM Recursion devours RAM, up to 28 
y. in this prograM depending on the "wa 
xiHUM size per entry" 

15 DIM LEFT$(RAM«2) ,RIGHT$(RflM*2) ,LEUE 
L$ tRAMX23 : LEFT$ = "¥" : LEFT$ (RAM*2J ="¥" : L 
EFT$ (2) =LEFT$ : RIGHT$=LEFT$ : GOTO 50 

16 REM LEFTS and RIGHTS Will store the 
pointers, while LEVELS will be the "r 

ecursive variable saver" 

20 V=ASC (LEFTS (XK2-13 J»256 + ASC (LEFTS (X 
t»2)):IF Y=0 THEN 30:REM There is no le 
ft child 

24 REM The address of the current node 
is stored, then we nake the left chil 

d the current node and go again 

25 Z = INT(X/'2563 : LEVELS (LEUEL+1, LEUEL+1 
)=CHRS(Z3 : levels (LEVEL+2,LEVEL+2)=CHRS 
(X-Z*256) :LEVEL=LEVEL+2:X=Y:G0T0 20 

30 ? ARRAY$((X-1)»SIZE+1,X*SIZE) :REM a 
RRAYS is printed in sorted order — le 
ft child, parent, then right child 

35 Y=ASC (RIGHTS (XW2-1) )*255 + ASC (RIGHTS 
(X*2JJ:IF Y THEN X=Y:GOTO 20:REM Folio 
w right leg without saving positions 

39 REM Restore the last saved position 
— the parent with a left child — an 

d go directly to PRINT 

40 IF LEVEL THEN LEVEL=LEVEL-2 : X = ASC (L 
EVEL$(LEVEL+13)»256+ASC (LEVELS (LEVEL+2 

31 :GOTO 30 



50 ? ;? COUNT;" records used", RAM-COUN 
T;" records left" 

55 ? "Entry: ";: INPUT aS:X=1:IF aS="" 
THEN SORT=l:LEUEL=0:GOTO 20:REM Go to 
recursive printing routine 

59 REM store new string, then use a bi 
nary tree search to determine the new 
string's position and set pointers 

60 A=SIZE»C0UNT:F0R B=1 TO SIZE:ARRAYS 

(A + B3= NEXT B:ARRAYS(A + 1,A + LEN(AS33 

=AS:COUNT=COUNT+l:IF C0UNT=1 THEN 55 
65 IF ARRAYS((C0UHT-13»SIZE+1,C0UNT«SI 
ZE3>ARRAYS((K-13*SIZE+1,X*SIZE3 THEN 7 
5:REM Follow left or right branch? 

69 REM Left branch. If there is a chi 
Id, go to it. Else, save new entry at 

this point 

70 Y=A5C (LEFTS (X»2-13J*255+ASC (LEFTS (X 
»233 :G0SUB 80:LEFTS(A,A3=CHRS(C3 :LEFTS 
(A+1,A+13=CHRS(B-C»2563 :G0T0 55 

74 REM Right branch. If there is a ch 
ild, go to it. Else, save new entry a 
t this point 

75 Y = ASC (RIGHTS {X»2-13 3 »256 + ASC (RIGHTS 
(X»233 :G0SUB 80:RIGHTS(A,A3=CHRS(C5 :RI 
GHTS(A+1,A+13=CHR$(B-CK2563 : GOTO 55 

80 IF Y THEN X=Y:POP :GOTO 65 

85 A=X»2-1 : B=COUNT : C=INT (B/2563 : RETURN 

89 REM Change line 55 to line 56 and t 
ype "55 IF COUNT THEN GOSUB 95" to see 

previous entries and their pointers 

90 FOR X=l TO COUNT:? ASC (LEFTS (X»2-13 
3»256+A5C(LEFTS(X«23 3,ARRAYS((X-13*5IZ 
E+1,X»SIZE3, 

95 ? ASC (RIGHTS (X»2-13 3*256+ASC (RIGHTS 
(X«23 } : NEXT X : RETURN 



LISTING 3: BASIC 



3 REM XXXXXXXXXXX QUIKSORT xxxxxxxxxxx 
5 REM XXXXXX by GREGG HESLING xxxxxxx 

10 CLR :? "Max. size/entry"; :INPUT SIZ 
E : RAM=INT t (FRE (03 -SIZE-5O03 / (SIZE + 4/33 
3:DIM ARRAYS (RAM»SIZE3, AS (5IZE3 

11 REM 57y. of RAM is lost When SIZE eq 
uals 1, but only VA is lost when SIZE 
is 65 or More 

15 DIM FIRSTS (RAM/3»23 , LASTS (RAM/3*23 : 
LASTS="¥" : LASTS (RAM/3»23 ="¥" : LASTS (23 = 
LASTS:FIR5TS=LASTS:G0T0 85 

16 REM FIRSTS and LASTS will hold poin 
ters to the beginning and end of array 
s that need to be sorted 

18 REM Lines 20-48 take the first entr 
y in the array and Move it over until 
everything less than the pivot 

19 REM is to the left, while everythin 
g greater is to the right. 

20 PIUOT= (FIRST-13«5IZE+1 : AS=ARRAYS (PI 
UOT,PiyOT+5IZE-13 

30 FOR A=FIRST*SIZE+1 TO (LAST-13»SIZE 
+1 STEP SIZE:IF ARRAYS(A,A+SIZE-13>AS 
THEN 40 

35 ARRAYS (PIVOT, PIU0T + 5IZE-13=ARR AYS (A 
, A+5IZE-13 :PIV0T=PIU0T+SIZE: ARRAYS{A, A 
+ SIZE-13=ARRAYS (PIVOT, PIUOT + SIZE-13 
40 NEXT A: ARRAY$(PIU0T,PIV0T+SIZE-13=A 
S : PIVOTr (PIVOT-13 /5IZE + 1 : IF PIU0T+l>zL 
AST THEN 60 

49 REM If there are entries to the rig 
ht of PIVOT, the first and last positi 
ons are saved 

50 A = PIV0T+l:B=INT(A/'2563 : FIRSTS (LEVEL 
+ 13 =CHRS (B3 : FIRSTS (LEVEL + 23 zCHRS (A-B»2 
563 : A=INT(LAST/2563 

55 LASTS(LEVEL + 13=CHRS(A3 : LASTS {LEVEL+ 
23=CHRS(LAST-A»2563 :LEVEL=LEUEL+2:? CH fl 
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by It'acy Jacobs 




£ y keet Shoot is a one-player action game written in 100% 
^L machine language that will run on all 8-bit Atari computers. 
^^ Type in Listing 1 using M/L Editor, then load Skeet Shoot 
i W using Atari's DOS binary load. 

^^ Once the game is booted up, the title screen will appear. 

Press START to begin. The gunsight will appear in the middle 
of the screen. Be aware that gravity pulls the gunsight down. Press 
the joystick up to release the clay skeets. 

The object of the game is to get the highest possible score. The 
skeets are slung out at random speeds — slow, medium and fast. 
The score for hitting the slow skeets is ten points, 25 for the medi- 
um and 50 for the fast. 
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At the bottom of the screen are counters that record the num- 
ber of skeets hit, the number of shells that have been used, your 
score and the number of the round that you are on. There are 
30 rounds in all. 

At the end of the game, you get five points for every shell not 
used. There is a total of 60 shells, but you are allowed only two 
shells per round. 

Press START to play again. 

Tracy Jacobs, a high school student, has been programming 
his 800 XL for about five years, and programming in assembly 
language with his older brother, Michael, an electronics techni- 
cian, for a little over a year. 
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LISTING 1: M/L EDITOR DATA 



loee DOTA 

133,12,16 
1010 DftTfl 
0,66,157, 
1020 DATA 
1,232,208 
1030 DATA 
0,96,72,2 
1040 DATA 
141,81,72 
1050 DATA 
141,48,2, 
1060 DATA 
,2,169,79 



255,255,30, 
9,72,133,13, 

162,0,157,0 
0,67,157,0,7 

68,157,0,69 
,229,160,0,1 

20,80,170,2 
4,173,80,72, 

1,141,80,72 
,104,202,208 

200,192,124 
169,80,141,4 

192,141,14, 
,141,1,2,169 



72,180,80,169,69, 

169,0,3744 

,64,157,0,65,157, 

41 

,157,0,70,157,0,7 

85,8144 

00,185,20,80,141, 

105,3422 

,173,81,72,105,0, 

,231,8707 

,208,218,169,144, 

9,2,169,5602 

212,169,150,141,0 

,0,2001 



1070 DATA 141,22,72,169,242,141,26,208 

,169,64,141,7,212,169,88,141,8543 

1080 DATA 192,2,141,194,2,169,134,141, 

195,2,169,10,141,193,2,159,6588 

1090 DATA 120,141,0,208,141,1,72,141,1 

,208,169,0,141,2,208,141,5852 

1100 DATA 3,72,141,3,208,141,4,72,141, 

8,72,141,7,72,141,24,1603 

1110 DATA 72,141,25,72,141,28,72,141,2 

6,72,169,16,141,46,100,141,3570 

1120 DATA 47,100,141,48,100,141,239,99 

,141,240,99,141,241,99,141,22,9229 

1130 DATA 100,141,23,100,141,24,100,16 

9,62,141,47,2,169,3,141,29,2209 

1140 DATA 208,169,120,141,0,72,169,208 

,141,12,72,141,13,72,169,1,3490 

1150 DATA 141,8,208,141,9,208,32,13,78 

,169,1,141,5,72,141,6,1495 

1160 DATA 72,162,0,32,152,76,32,85,76, 
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32,77,78,162,8,189,52,2364 

1170 DflTfl 73,157,135,96,232,224,11,240 

,14,76,38,73,51,43,37,37,1439 

use DflTft 52,0,51,46,47,47,52,189,0,22 

4,157,0,64,189,255,224,8792 

1190 DflTfl 157,255,64,232,208,241,169,6 

4,141,244,2,162,80,189,221,78,1082 

1200 DATA 157,8,64,202,16,247,173,31,2 

88,201,6,208,249,141,30,208,827 

1210 DATA 162,8,189,128,73,157,135,96, 

232,224,11,248,45,76,186,73,7175 

1220 DATA 0,8,8,8,8,0,0,8,8,8,0,173,11 

,212,281,123,1390 

1230 DATA 208,249,173,42,2,208,3,32,10 

1,77,173,11,212,201,123,240,9127 

1240 DATA 249,173,17,72,281,2,48,64,24 

0,0,32,215,77,32,242,77,5442 

1250 DATA 169,114,141,0,208,141,1,72,1 

69,130,141,0,72,32,13,78,1738 

1250 DATA 169,0,141,1,210,173,120,2,28 

1,14,208,249,169,0,141,17,6609 

1278 DATA 72,173,18,210,141,16,72,169, 

0,141,42,2,169,18,141,29,2139 

1280 DATA 72,32,101,77,169,0,133,77,76 

,134,77,173,11,72,201,1,3548 

1290 DATA 240,25,16,20,174,28,72,224,2 

,16,19,173,16,208,201,0,3640 

1300 DATA 240,3,76,6,74,76,211,74,76,2 

44,74,76,28,75,172,120,5457 

1310 DATA 2,174,1,72,185,45,79,201,0,2 

40,19,16,10,56,224,40,3022 

1320 DATA 144,2,202,202,76,38,74,56,22 

4,204,176,2,232,232,142,1,8882 

1330 DATA 72,142,8,208,76,178,74,172,1 

20,2,185,61,79,240,21,16,4685 

1340 DATA 2,48,28,56,173,8,72,281,212, 

176,9,32,148,74,32,148,4426 

1358 DATA 74,32,140,74,76,131,73,56,17 

3,8,72,281,16,144,245,32,5581 

1360 DATA 102,74,32,182,74,32,182,74,3 

2,102,74,76,131,73,24,173,2869 

1370 DATA 10,72,105,14,141,9,72,174,0, 

72,172,10,72,202,185,77,5053 

1380 DATA 79,157,0,68,232,200,204,9,72 

,208,243,169,0,157,0,68,6620 

1390 DATA 206,0,72,96,24,173,10,72,105 

,14,141,9,72,174,0,72,1268 

1400 DATA 172,10,72,169,0,157,8,68,232 

,185,77,79,157,0,68,200,5964 

1410 DATA 232,204,9,72,208,243,238,0,7 

2,96,24,173,10,72,105,14,3414 

1420 DATA 141,9,72,174,0,72,172,10,72, 

185,77,79,157,0,68,232,5273 

1438 DATA 280,204,9,72,288,243,248,0,7 

6,47,74,169,8,141,42,2,3163 

1440 DATA 169,8,141,29,72,173,42,2,208 

,3,32,101,77,174,28,72,2331 

1450 DATA 232,142,28,72,169,15,141,11, 

72,238,8,72,173,1,72,141,3927 

1460 DATA 1,208,24,173,10,72,105,9,141 



,9,72,174,0,72,172,18,1917 

1478 DATA 72,185,137,79,157,8,69,232,2 

88,284,9,72,208,243,206,11,9938 

1480 DATA 72,76,83,75,173,10,72,185,9, 

141,9,72,174,0,72,172,3070 

1490 DATA 10,72,169,0,141,11,72,169,0, 

157,0,69,232,200,204,9,6196 

1500 DATA 72,208,244,174,8,72,32,32,78 

,32,152,78,75,131,73,141,4171 

1510 DATA 29,72,169,0,141,42,2,32,101, 

77,96,173,13,208,41,4,1988 

1520 DATA 208,13,173,13,208,141,30,208 

,41,8,208,49,76,131,73,173,6095 

1530 DATA 5,72,201,15,16,236,238,7,72, 

173,5,72,105,22,141,5,2725 

1540 DATA 72,169,42,32,71,75,174,7,72, 

32,32,78,32,133,78,169,2691 

1550 DATA 128,32,190,78,173,27,72,32,1 

84,75,76,90,75,173,6,72,3372 

1560 DATA 201,15,16,25,238,7,72,173,6, 

72,105,22,141,6,72,169,2953 

1570 DATA 42,32,71,75,32,190,78,173,27 

,72,32,184,75,76,131,73,4114 

1580 DATA 24,109,25,72,141,25,72,169,0 

,109,24,72,141,24,72,32,875 

1590 DATA 77,78,96,174,23,72,232,142,2 

3,72,224,49,208,13,173,6,5670 

1600 DATA 72,105,3,141,6,72,169,0,141, 

23,72,24,173,6,72,105,1772 

1610 DATA 4,141,9,72,174,13,72,172,6,7 



SAVE MONEY ;Orf 
ATARf eOO/XL/XE SOFTWARE 



* Atari Public Domain & Shareware 
Software 

* Over 250 Theme Disks! Every disk 
is Guaranteed! 

* Games! Graphics! Educational! 
Music! Utilities! Home & Business! 

Fast dependable world-wide service! 

Send for your FREE descriptive 
Catalog. 

BELLCOf^ 

P.O.Box 1043-G 

Peterborough, Ontario 

Canada K9J 7A5 



CIRCLE #104 ON READER SERVICE CARD. 



SEPTEMBER A.N.A.L.O.G. Computing 



19 




2,202,185,50,79,157,0,4886 

1628 DftTA 71,232,200,204,9,72,268,243, 

169,0,157,0,71,206,13,72,5850 

1630 DftTft 173,13,72,201,24,240,70,96,1 

74,23,72,232,142,23,72,224,7871 

1640 DfiTA 49,208,13,173,5,72,105,3,141 

,5,72,169,0,141,23,72,1662 

1650 DftTfl 24,173,5,72,105,4,141,9,72,1 

74,12,72,172,5,72,202,3933 

1660 DATA 185,90,79,157,0,70,232,200,2 

04,9,72,208,243,169,0,157,9785 

1670 DftTft 0,70,206,12,72,173,12,72,201 

,24,240,68,96,32,242,77,6597 

1680 DATA 238,26,72,238,17,72,173,10,2 

10,141,15,72,32,5,77,105,2596 

1690 DflTfl 8,141,3,208,141,4,72,169,208 

,141,13,72,169,1,141,6,4117 

1700 DATA 72,169,0,141,28,72,141,0,210 

,141,1,210,141,28,2,174,5103 

1710 DATA 26,72,224,31,240,45,32,32,78 

,32,171,78,141,30,208,96,5374 

1720 DATA 32,215,77,238,17,72,173,10,2 

10,141,14,72,32,255,75,141,6873 

1730 DATA 2,208,141,3,72,169,208,141,1 

2,72,169,1,141,5,72,141,4479 

1740 DATA 30,208,96,169,5,32,184,75,17 

4,8,72,232,142,8,72,224,7099 

1750 DATA 60,248,3,76,187,76,162,0,189 

,246,76,157,135,96,232,224,2172 

1760 DATA 9,240,3,76,208,76,173,31,208 

,201,6,240,11,169,0,141,7110 

1770 DATA 2,208,141,3,208,76,222,76,32 

,13,78,76,144,72,39,33,2462 

1780 DATA 45,37,0,47,54,37,50,173,14,7 

2,76,8,77,173,15,72,891 

1790 DATA 201,85,48,17,201,170,48,8,16 

,1,96,169,50,76,18,77,1252 

1800 DATA 169,118,76,18,77,169,192,76, 

18,77,32,16,76,173,16,72,2134 

1810 DATA 56,201,50,144,102,32,16,76,1 

73,16,72,56,201,160,144,91,6066 

1820 DATA 32,16,76,76,147,77,32,203,75 

,56,173,0,72,201,212,176,8345 

1830 DATA 3,32,140,74,173,16,72,56,201 

,50,144,14,32,203,75,173,5738 

1840 DATA 16,72,56,201,160,144,3,32,20 

3,75,76,227,73,174,29,72,6022 

1850 DATA 189,219,79,141,0,210,232,189 

,219,79,141,1,210,232,189,219,4315 

I860 DATA 79,141,28,2,232,142,29,72,16 

9,255,141,42,2,96,173,14,5419 

1870 DATA 72,201,85,48,22,201,170,48,1 

45,16,29,173,15,72,201,85,5119 

1880 DATA 48,35,201,170,18,160,16,42,7 

6,227,73,174,3,72,202,142,7123 

1890 DATA 3,72,142,2,208,76,34,77,174, 

3,72,232,142,3,72,142,5233 

1900 DATA 2,208,76,34,77,174,4,72,202, 

142,3,208,142,4,72,76,4680 

1910 DATA 62,77,174,4,72,232,142,3,208 

,142,4,72,76,62,77,173,5413 

1920 DATA 5,72,105,4,141,9,72,174,12,7 

2,172,5,72,169,0,157,3649 

1930 DATA 0,70,232,200,204,9,72,208,24 



4,96,173,6,72,105,4,141,6661 

1940 DATA 9,72,174,13,72,172,6,72,169, 

0,157,0,71,232,200,204,8360 

1950 DATA 9,72,208,244,96,162,0,169,0, 

232,157,0,68,157,0,69,4748 

I960 DATA 224,255,208,245,32,102,74,96 

,160,0,138,56,233,100,144,4,6639 

1970 DATA 200,170,176,248,24,152,105,1 

6,141,19,72,160,0,138,56,233,6596 

1980 DATA 10,144,4,200,170,176,248,24, 

152,105,16,141,20,72,138,105,6228 

1990 DATA 16,141,21,72,96,173,25,72,13 

3,212,173,24,72,133,213,32,6921 

2000 DATA 170,217,32,230,216,160,0,177 

,243,48,3,200,208,249,41,127,1013 

2010 DATA 162,4,56,233,32,157,6,100,22 

4,0,240,16,202,136,192,255,1562 

2020 DATA 240,5,177,243,24,144,235,200 

,169,48,203,230,96,173,19,72,158 

2038 DATA 141,22,180,173,20,72,141,23, 

100,173,21,72,141,24,100,96,3840 

2040 DATA 173,19,72,141,239,99,173,20, 

72,141,240,99,173,21,72,141,7956 

2050 DATA 241,99,96,173,19,72,141,46,1 

00,173,20,72,141,47,100,173,5824 

2060 DATA 21,72,141,48,100,96,173,16,7 

2,56,201,160,176,17,56,201,7176 

2070 DATA 50,176,6,169,10,141,27,72,96 

,169,25,141,27,72,96,169,4851 

2080 DATA 50,141,27,72,96,56,120,216,2 

4,24,24,24,225,0,0,0,98 

2090 DATA 0,0,0,0,0,0,124,12,12,124,96 

,96,124,0,0,0,8222 

2100 DATA 124,12,124,12,124,0,0,0,0,0, 

54,62,6,60,195,195,1589 

2110 DATA 195,195,195,195,60,0,56,108, 

108,108,109,108,56,8,0,0,880 

2120 DATA 56,108,108,108,56,0,0,0,0,0, 

28,54,28,85,0,0,5938 

2130 DATA 0,0,0,0,0,0,0,0,9,8,1,1,1,0, 

255,255,71 

2148 DATA 255,8,0,0,0,0,0,0,0,0,1,255, 

0,8,1,255,9561 

2150 DATA 0,0,1,255,0,16,16,16,0,0,0,1 

46,0,0,0,16,5517 

2160 DATA 16,16,0,56,124,254,0,48,120, 

252,0,32,112,248,0,32,4384 

2170 DATA 112,0,0,0,0,0,0,0,0,0,0,0,0, 

20,65,8,3665 

2180 DATA 34,8,32,132,32,80,128,16,128 

,64,128,32,0,0,0,0,8182 

2190 DATA 0,0,0,0,124,124,124,124,124, 

124,124,0,0,8,72,138,2422 

2200 DATA 72,174,22,72,189,188,79,232, 

142,22,72,141,10,212,141,26,7067 

2210 DATA 208,141,24,208,169,30,205,22 

,72,208,5,169,0,141,22,72,4507 

2220 DATA 104,170,104,64,242,242,242,2 

42,242,242,226,210,194,178,162,146,890 

8 

2230 DATA 138,114,98,82,66,2,2,2,4,4,4 

,4,4,4,4,4,3982 

2240 DATA 4,4,4,20,143,6,18,138,4,16,1 

33,2,14,130,10,10,8320 
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2250 DOTfl 130,12,9,8,0,20,132,4,18,134 

,4,15,135,4,14,138,5460 

2250 DftTft 4,40,45,1,40,42,2,40,35,2,0, 

0,0,10,143,10,6058 

2270 DATA 9,138,8,8,135,7,7,133,6,6,13 

1,5,200,0,200,0,1655 

2280 DATA 150,0,3,0,1,5,2,9,28,0,1,5,2 

,9,6,0,3135 

2290 DATA 34,10,5,0,1,4,2,8,36,0,1,4,2 

,8,4,0,2993 

2300 DATA 36,10,43,0,1,3,2,7,32,0,1,3, 

2,7,2,0,3067 

2310 DATA 38,10,81,0,1,1,2,6,34,8,1,1, 

2,6,40,10,3883 

2320 DATA 1,0,1,51,1,40,1,47,1,52,1,51 

,1,26,17,0,4940 

2330 DATA 1,51,1,35,1,47,1,50,1,37,1,2 

6,11,0,1,40,4770 

2340 DATA 1,41,1,52,1,51,1,26,18,0,1,5 

0,1,47,1,53,5457 

2350 DATA 1,46,1,36,1,26,11,0,240,248, 

240,194,0,96,130,130,7730 

2360 DATA 130,130,130,140,140,141,141, 

141,141,141,141,141,130,130,130,130,82 

3 

2370 DATA 130,130,130,130,130,130,130, 

130,2,65,144,80,0,225,2,227,7088 

2380 DATA 2,30,72,0,0,0,0,0,0,0,0,0,0, 

0,0,0,2658 




le .DPT NO LIST 

26 .OPT OBJ 

38 ; »»» SKEET SHOOT ««« 

48 jprograned by Tracy and Mike Jacobs 

58 jprograHed in Mac/65 by OSS inc. 

68 «= $4888 

78 PLAYERS .OS $8488 ; RESERUED 

SB PLAYERB .DS $8188 ;MEMORy FOR 

98 PLAYERl .DS $8188 ;PLAYERS 

8188 PLAYER2 .DS $8188 

8118 PLAYERS . DS $8108 



8128 


DOSUIN 


= SBC 


RESET POINTER 


8138 


SDLSTL 


- SB238 


DL POINTER tLBJ 


8148 


SDLSTH 


= $B231 


DL POINTER CHB] 


8158 


INTL = 


$8208 


DLI POINTER CLB) 


8168 


INTH = 


$8281 


DLI POINTER CHBJ 


8178 


NMIEN : 


: $D48E 


INTERRUPT ENABLE 


8188 


MSYNC : 


: $D48A 


MAIT HOR. SYNC 


8198 


CHSET : 


: PLAYERS 


NEM CHAR SET 


8288 


HPGSPe 


= $D888 


HOR. PL8 


8218 


HPOSPl 


= $D881 


HOR. PLl 


8228 


HP0SP2 


= $DB82 


HOR. PL2 


8238 


HP0SP3 


= $DBB3 


HOR. PL3 


8248 


5IZEP8 


= $DeB8 


SIZE OF PLB 


8258 


SIZEPl 


= SD889 


SIZE OF PLl 


8268 


SDMCTL 


= $B22F 


CDMA) CONTROL 


8278 


GRACTL 


= $DB1D 


GRAPHIC CONTROL 


8288 


PC0LP8 


= $82C8 


COLOR OF 


8298 


PCOLPl 


= $82C1 


PLAYERS 



B38e 


PC0LP2 = $82C2 




8318 


PC0LP3 = $82C3 




8328 


PMBASE = $D487 


;P/M BASE 


8338 


STICK = S8278 


;JOYSTICK CA) 


8348 


TRIG8 = SD816 


;JOYSTICK TRIGGER 


8358 


UCOUNT = SD48B 


;UER. LINE COUNT 


8368 


PIPL = $D8eD 


JPLI TO PLAYERS 


8378 


HITCRL = $D81E 


COLLISSION CLR 


83B8 


RANDOM = $D28A 


RANDOM tt 


8398 


CHBAS = $82F4 


CHARACTER BASE 


8488 


COLBK = $D81A 


BACKGROUND COLOR 


8418 


C0LPF2 = SD818 


COLOR PLAYFIELD2 


8428 


FRO = $D4 


FLOATING POINT tt 


8438 


IFP = $D9AA 


CFP) CONVERSION 


8448 


FASC = $D8E6 


CONUERSION CSUBl 


8458 


INBUFF = $F3 


POINTER TO 


8468 


; BUFFER ASCII 




8478 


CDTMU3 = $821C 


TIMER 3 


8488 


CDTMF3 = S822A 


f3) FLAG/UECTOR 


8498 


CONSOL = SD81F 


CONSOL PORT KEYS 


8588 


AUDCl = $D281 


AUDIO CI) CONTROL 


8518 


AUDFl = $D266 


AUDIO CI) FREQ. 


8528 


AUDCTL = SD288 , 


AUDIO CONTROL 


8538 


ATRACT = $4D 


MODE TIMER 


8548 


SCR = PLAVERS4'$2888 ;DISPLAV 


8558 


DISP = SCR+$e3E8 ; COUNTERS 


6568 


; 




BS78 


;Reserved Bytes for Uariables 


8588 


f 




8598 


LOCATION .DS 1 , 


PLAYER 1,2 V POS 


8688 


PLK8 .DS 1 , 


AIM X POS. 


8618 


PLKl .DS 1 , 


BULLET X POS. 


8628 


PLK2 .65 1 


SKEETl X POS. 


B638 


PLX3 .DS 1 , 


5KEET2 X POS. 


6648 


SKEEl .DS 1 ; 


CHAR FOR SKEETl 


8658 


SKEE2 .DS 1 ; 


CHAR FOR SKEET2 


8668 


HIT .DS 1 ; 


HIT COUNTER 


8678 


SHOTS .DS 1 ; 


SHOT COUNTER 


8688 


TEMPO .DS 1 ; 


TEMPORARY REG. 


8698 


DRAH .DS 1 


PLAYERS POINTER 


8788 


DIS2 .DS 1 ; 


LENGHT OF BULLET 


8718 


JON THE SCREEN 




8728 


LOSKEEl .DS 1 ; 


y POS. OF SKEEl 


8738 


L0SKEE2 .DS 1 J 


Y POS. OF SKEE2 


8748 


DIRECT .DS 1 ; 


SKEETl DIRECTION 


8758 


DIRECT2 .DS 1 ; 


SKEET2 DIRECTION 


8768 


SPEED .DS 1 ; 


WHICH SPEED 


8778 


CHECK .DS 1 1 


tt FINISH SKEES 


8788 


NUMBER .DS 1 ; 


MATH REGISTERS 


8798 


HUNDRED .DS 1 




8886 


TEN .DS 1 




6818 


ONE .DS 1 




8828 


DLIREG .DS 1 ; 


DLI REGISTER 


6838 


CSIZE .DS 1 ; 


SKEETS DISTANCE 


8848 


SCOREH .DS 1 


HI BYTE OF SCORE 


8858 


SCOREL .DS 1 ; 


LO BYTE OF SCORE 


6868 


ROUND .DS 1 ; 


ROUND COUNTER 


8878 


POINT .DS 1 ; 


VALUE OF SKEETS 


6886 


TSHOT .DS 1 ; 


STAY OF BULLET 


8898 


AUINDX .DS 1 1 


AUDIO REG. 


8986 


i 




6916 


; START SET UP 




6926 


i 




0936 


LDA tt <BEGIN 


;MHEN RESET IS 


8940 


STA DOSUIN ; 


PRESS 


6956 


LDA tt >BEGIN 


;GAME MILL 


6968 


STA D03UIN+1 


; START OVER. 


8978 


; 




8988 


; CLEAR MEMORY FOR PLAYER, 


8998 


J CHARACTER SET, 


AND SCREEN 


1888 


J 




1818 


LDA ttB 




1826 


LDK tt8 




1838 


CLEAR STA PLAYERS 


,x 


1648 


STA PLAYERS+$8188,H 


1B58 


STA PLAYERS+$e2ee,K 


1866 


STA PLAVERS'»$8388,X 


1070 


STA PLAYERS+S8488,X 


1680 


STA PLAYERS+$8588,X 


1690 


STA PLAYERS+$ee8B,X 


iiao 


STA PLAYER5+$8788,X 


1110 


INX 




1128 


BNE CLEAR 




1138 


; 
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114B 


BEGIN LDV <te ;DRAH 


1158 


C0NT5T 


LDA CHARDT.V ;CHARACTERS 


1168 


JdH 


;eH THE 


1178 


IHY 


; SCREEN 


use 


LftA 


CHARDT,Y 


1198 


STORDT 


STA SCR 


1288 


PHA 




1218 


CLC 




1228 


LDA 


STORDT+1 


1238 


ADC 


«*1 


1248 


STA 


STORDT+1 


1258 


LDA 


STORDT+2 


1268 


ADC 


MB 


1278 


STA 


STORDT+2 


1288 


PLA 




1298 


DEK 




1388 


BNE 


STORDT 


1318 


INY 




1328 


CPV 


ttl24 


1338 


BME 


CONTST 


1348 


; 




1358 


;SET UP 


SCREEN 


1368 


; 




1378 


SUS LDA 


ttLSTS255 


1388 


STA 


SDL5TL 


1398 


LDA 


ttL5T/256 


1488 


STA 


SDLSTH 


1418 


LDA 


H192 


1428 


STA 


NMIEN 


1438 


LDA 


»DLI«255 ;SET DLI 


1448 


STA 


INTL 


1458 


LDA 


ttDLI/'2S6 


1468 


STA 


INTH 


1478 


LDA 


tt8 


1488 


STA 


DLIREG 


1498 


LDA 


St242 


1588 


STA 


COLBK 


1518 


t 




1528 


1 SET UP P/H GRAPHICS 


1538 


; 




1548 


START LDA « >PLAYERS 


1558 


STA 


PMBASE 


1568 


LDA 


its 8 


1578 


STA 


PCOLPe 


1588 


STA 


PC0LP2 


1598 


LDA 


ttl34 


1688 


STA 


PC0LP3 


1618 


LDA 


tt$8A 


1628 


STA 


PCOLPl 


1638 


LDA 


ni2e 


1648 


STA 


HP0SP8 


1658 


STA 


PLK8 


1668 


STA 


HPOSPl 


1678 


i 




1688 


; CLEAR REGISTERS 


1698 


LDA 


tt8 


1788 


STA 


HP05P2 


1718 


STA 


PLX2 


1728 


STA 


HP0SP3 


1738 


STA 


PLK3 


1748 


STA 


SHOTS 


1758 


STA 


HIT 


1768 


STA 


5C0REH 


1778 


STA 


5C0REL 


1788 


STA 


TSHOT 


1798 


STA 


ROUND 


1888 


; CLEAR 


NUMBERS ON SCREEN 


1818 


LDA 


ttl6 


1828 


STA 


DISP+7e 


1838 


STA 


DISP+71 


1848 


STA 


DISP+72 


1858 


STA 


DI5P+7 


1868 


STA 


DI5P+8 


1878 


STA 


DI5P+9 


1888 


STA 


DISP+46 


1898 


STA 


DISP+47 



1988 


STA 


DISP+48 




1918 


; 






1928 


; SET UP SCREEN POINTERS 


1938 


S 






1948 


LDA 


KB 2 




1958 


STA 


SDMCTL 




1968 


LDA 


tS3 




1979 


STA 


GRACTL 




1988 


LDA 


ttl28 




1998 


STA 


LOCATION 




2888 


LDA 


«288 ;SET 


SKEETS 


2818 


STA 


LOSKEEl ;IN 


rHERE 


2828 


STA 


L05KEE2 ;STARTING 


2838 


LDA 


»1 ;POSITION 


2848 


STA 


SIZEP8 




2858 


STA 


SIZEPl 




2868 


JSR 


CLRAIM ; CLEAR GUNS 


2878 


LDA 


ttl 




2888 


STA 


SKEEl 




2898 


STA 


SKEE2 




2188 


LDK 


»e 




2118 


JSR 


RESET 




2128 


JSR 


RESET2 




2138 


JSR 


TSCORE 




2148 


; 






2158 


; PRINT 


TITLE IN SKY 




2168 


; 






2178 


LDK 


tt8 




2188 


PRINT LDA SKESHO,X 




2198 


STA 


SCR+135,K 




2288 


INK 






2218 


CPK 


ttll 




2228 


BED 


LCHAR 




2238 


JMP 


PRINT 




2248 


SKESHO 


5BYTE "5KEET 


SHOOT- 


2258 


f 






2268 


; REDEFINE CHARACTER 


SET 


2278 


J 






2288 


LCHAR LDA SE888,X 




2298 


STA 


CHSET.K 




2388 


LDA 


SE8FF,K 




2318 


STA 


CH5ET+$FF,X 




2328 


INK 






2338 


BNE 


LCHAR 




2348 


LDA 


a >CHSET 




2358 


STA 


CHBAS 




2368 


LDX 


St88 




2378 


CHANCH LDA CHDATA.X 




2388 


STA 


CHSET+8,K 




2398 


DEK 






2488 


BPL 


CHANCH 




2418 








2428 


J WAIT FOR (START] KEY 


2438 








2448 


CKEY LDA CONSOL 




2458 


CMP 


tt6 




2466 


BNE 


CKEY 




2478 


STA 


HITCRL 




2488 


/ 






2498 


; CLEAR TITLE 




2588 


; 






2S18 


LDX 


na 




2528 


CSCR LDA CLRSCR.K 




2538 


STA 


SCR+13S,X 




2548 


INK 






2558 


CPK 


ttll 




2568 


BEQ 


PULL 




2578 


JMP 


CSCR 




2588 


CLRSCR 


SBYTE " 


" 


£9711 

2688 


; UCOUNT DELAY ROUTINE 


2618 
2628 


CHK LDA 


UCOUNT 




2638 


CMP 


ttl23 




2648 


BNE 


CHK 




2658 


LDA 


CDTMF3 





2668 


BNE 


CHK2 








2678 


JSR 


AU8 








2688 


CHK2 LDA UCOUNT 








2698 


CMP 


ttl23 








2788 


BEQ 


CHK2 








2718 


LDA 


CHECK 








2728 


CMP 


tt2 








2738 


BMI 


DIR 








2748 


BEQ 


PULL 








2758 












2768 


I BEGIN 


PLAY 








2778 












2788 


PULL JSR CLR5KE1 


; CLEAR SKEETl 






2798 


JSR 


CLRSKE2 


; CLEAR 5KEET2 






2888 


LDA 


<«114 


;SET PLAYERS 






2818 


STA 


HP0SP8 


J TO THERE 






2828 


STA 


PLX8 


;POSITI0N5 






2838 


LDA 


ttl38 


;AND WAIT 






2848 


STA 


LOCATION 


;F0R THE STICK 






2858 


JSR 


CLRAIM 


;T0 BE PUSH UP 






2868 


LDA 


tt8 








2878 


STA 


AUDCl 


; CLEAR AUDIO 






2888 








^ 




2898 


;MAIT FOR STICK 


TO BE PUSHED UP 






2988 












2918 


PULLS 










2928 


LDA 


STICK 








2938 


CMP 


ttl 4 




^.^^TX 


2948 


BNE 


PULLS 


r. 


^yfe3j ^.^rr 


2958 


LDA 


tt8 


\t 


iJ^ '^zyE 


2968 


STA 


CHECK 




-, ■ — -\ 


2978 


LDA 


RANDOM 


;LOAD RANDOM tt [;^ 


'^^ 5-^ 


2988 


STA 


SPEED 


;FOR SPEED. I 


"D &5 


2998 


LDA 


tt8 


;MAKE 5LINING "-" 


— ^^ 


3888 


STA 


CDTMF3 


; SOUND. 


tf^ 4R 


3818 


LDA 


ttl 8 


1 


^1 vw 


3828 


STA 


AUINDX 




mm \|F 


3838 


JSR 


AU8 




^^ ^^ 


3848 


LDA 


tte 




^^ tf% 


3858 


STA 


ATRACT 


i 


P^ VVi 


3868 


DIR JMP 


PICKDIR 


; RELEASE SKEETS. | 


^M ^^ 


3878 


; 






^^ I r^ 


3888 


COU LDA 


DIS2 


; COUNT LENGTH OF 


r-^ ^ — ^^ 


3898 


CMP 


ttl 


; BULLET ON 


"^^ 




3188 


BEQ 


CLRSHOT 


;THE SCREEN 




3118 


BPL 


GOBULL 








3128 


; 










3138 


; JOYSTICK CONTROL 






3148 


i 










3158 


TRIG 










3168 


LDX 


TSHOT 


; COUNT SHOTS THAT 






3178 


CPK 


tt2 


;HAUE been FIRED 






3188 


BPL 


LRMOVE 


;IF THO HAS BEEN 






3198 


LDA 


TRIG8 


;FIRED THEN YOUR 






3288 


CMP 


tt8 


;OUT OF SHELL 






3218 


BEQ 


FIRE 








3228 


JMP 


LRMOUE 








3238 


FIRE JMP SHOT 


;FIRE GUN 






3248 


GOBULL JMP SHOOT 


; DISPLAY BULLET 






3258 


CLRSHOT 


JMP ERASE ; CLEAR SHOOT 






3268 


LRMOUE LDY STICK 


JMOUE YOUR 






3278 


LDX 


PLX8 


;AIM LEFT OR 






3288 


LDA 


STRX,Y 


; RIGHT 






3298 


CMP 


tte 








3388 


BEQ 


STOHOZ 








3318 


BPL 


RIGHT 








3328 


LEFT SEC 








3338 


CPK 


it48 








3348 


BCC 


LEFT2 








3358 


DEK 










3368 


DEK 










3378 


LEFT2 JMP STOHOZ 








3388 


RIGHT SEC 








3398 


CPK 


tt2e4 








3488 


BCS 


STOHOZ 








3418 


INK 











34Ze 




INK 


S438 


5TBH0Z STX PLKB 


3448 




STX HPOSPe 


3458 




JMP HMOUE 


3468 


llDMeUE LDY STICK ; MOUE VeUR AIM 


3478 




LDA STRY.Y ; UP OR DOMN 


3488 




BEQ MAC 


3498 




BPL MDN 


3588 




BMI MUP 


3518 


MDN 


SEC 


3528 




LDA LOCATION 


3538 




CMP J»212 


3548 




BCS MAC 


3558 




JSR MDUEDN 


3558 




J5R MOUEDN 


3578 




JSR MOUEDN 


3588 


MAC 


JMP CHK 


3598 


MUP 


SEC 


3688 




LDA LOCATION 


3618 




CMP ttl6 


3628 




BCC MAC 


3638 




JSR MOUEUP 


3648 




JSR MOUEUP 


3658 




JSR MOUEUP 


3668 




JSR MOUEUP 


3678 




JHP CHK 


36B8 


MOVEUP CLC ;MOWE PL8 UP 


3698 




LDA DRAH 


3798 




ADC Stl4 


3718 




STA TEMPO 


3728 




LDK LOCATION 


3738 




LDY DRAM 


3748 




DEX 


3758 


LOOPUP LDA PIC,Y 


3768 




STA PLAYERS, X 


3778 




IHX 


3788 




INV 


3798 




CPY TEMPO 


3888 




BNE LOOPUP 


3818 




LDA 1*8 


3828 




STA PLAYER8,X 


3838 




DEC LOCATION 


3848 




RTS 


3858 


f 




3868 


MDUEDN CLC ;MOVE PL8 DONN 


3878 




LDA DRAH 


3888 




ADC t«14 


3898 




STA TEMPO 


3988 




LDX LOCATION 


3918 




LDY DRAH 


3928 




LDA tte 


3938 




STA PLAYERS, X 


3948 




INX 


3958 


L80P&N LDA PIC,Y 


3968 




STA PLAYER8,X 


3978 




INV 


3988 




INX 


3998 




CPV TEMPO 


4888 




BNE LOOPDN 


4818 




INC LOCATION 


4828 




RTS 


4838 


; 




4848 


HMOVE CLC ;HOZ. MOUE 


4858 




LDA DRAH 


4868 




ADC t«14 


4878 




STA TEMPO 


4888 




LDX LOCATION 


4898 




LDY DRAH 


4168 


LOOPH LDA PIC.V 


4118 




STA PLAYER8,X 


4128 




INX 


4138 




INY 


4148 




CPY TEMPO 


4158 




BNE LOOPH 


4168 




BEQ JUMPUP 


4178 


JUMPUP JHP UDMOUE 



4188 




4198 


■ SHOOT AT THE 5KEET 


4288 




4218 


SHOT LDA tt8 j MAKE AUDIO 


4228 


STA CDTMF3 ;GUN SHOT 


4238 


LDA M8 


4248 


STA AUINDX 


4258 


LDA CDTMF3 


4268 


BNE CONTS 


4278 


JSR AU8 


4288 


CONTS LDX T5H0T JDISPLAY BULLET 


4298 


INX ;1S LOOPS ON THE 


4388 


STX T5H0T ; SCREEN 


4318 


LDA ttl5 


4328 


STA DI52 


4338 


INC SHOTS 


4348 


SHOOT LDA PLK8 


4358 


STA HPOSPl 


4368 


CLC 


4378 


LDA DRAH 


4388 


ADC »9 


4398 


STA TEMPO 


4488 


LDX LOCATION 


4418 


LDY DRAH 


4428 


BULLET LDA PIC2,V 


4438 


STA PLAYERl.X 


4448 


INX 


4458 


INY 


4468 


CPY TEMPO 


4478 


BNE BULLET 


4488 


DEC DIS2 


4498 


JMP COLL 


4588 


i 


4518 


ERASE LDA DRAH ; ERASE THE BULLET 


4528 


ADC tt9 


4538 


STA TEMPO 


4548 


LDX LOCATION 


4558 


LDY DRAH 


4568 


LDA St8 


4578 


STA DIS2 


4588 


CLRLOP LDA «8 


4598 


STA PLAYERl.X 


4688 


INX 


4618 


INY 


4628 


CPY TEMPO 


4638 


BNE CLRLOP 


4648 


LDX SHOTS ; CHANGE SHOT REG. 


4658 


JSR DISPNUM 


4668 


JSR PUTSHOT 


4678 


JMP CHK 


4688 


; 


4698 


SOUMAK STA AUINDX 


4788 


LDA «t8 


4718 


STA CDTMF3 


4728 


JSR AU8 


4738 


RTS 


4748 


/ 


4758 


; COLLISION 


4768 


; 


4778 


COLL LDA PIPL 


4788 


AND it$e4 


4798 


BNE CCOLOR 


4888 


i 


4818 


C0LL2 LDA PIPL 


4828 


STA HITCRL 


4838 


AND tt$e8 


4848 


BNE HIT2 


4858 


JMP CHK 


4868 


J 


4878 


CCOLOR LDA SKEEl ;SH0T SKEETl 


4888 


CMP «1S ; CHECK IF IT 


4898 


BPL C0LL2 ;HAS BEEN HIT 


4988 


INC HIT JBEFORE. 


4918 


LDA SKEEl JNO! 


4928 


ADC tt22 ; CHANGE CHARACTER 


4938 


STA SKEEl ;MAKE SOME 



4948 


LDA tt42 


;NOISE 






4958 


JSR SOUMAK 


;AND GIUE ME 






4968 


LDX HIT 


;SOME POINTS. 






4978 


JSR DISPNUM 




1 




4988 


JSR PUTHIT 




.' 




4998 


LDA ttl28 








5888 


JSR SCSP 








5618 


LDA POINT 








5828 


JSR B16 








5838 


JMP C0LL2 








5848 


f 








5858 


HIT2 LDA SKEE2 


;SHOT SKEET2 






5868 


CMP ttlS 


;SAME AS BEFORE 






5878 


BPL MAC2 








5888 


INC MIT 








5898 


LDA SKEEZ 








5188 


ADC tt22 








5118 


STA SKEE2 








5128 


LDA tt42 








5138 


JSR SOUMAK 








5148 


JSR SCSP 




i 




5158 


LDA POINT 






5168 


JSR B16 




V 




5178 


MAC2 JMP CHK 






5188 


; 






5198 


B16 CLC 


; 16-BIT MATH 






5288 


ADC SCOREL 


; ADDITION 






5218 


STA SCOREL 


; ROUTINE 






5228 
5238 
5248 


LDA »e 
ADC SCOREH 
STA SCOREH 


(^ 


@® 


5258 


JSR TSCORE 




— m 


5268 


RTS 


C^V^ r 


^S 


5278 


■ 


r=D C 


--(^ 


5288 


SMALL2 LDX CSIZE ;KEEP TRACK ' ^_ 


^^ 


5298 


INX 


J OF SKEET ^^^ 


Ml 


5388 


STX CSIZE 


{DISTANCE ^^H 


W 


5318 


CPX tt49 


^■^^ 


x~ 


5328 


BNE SKEE2UP 


^^^^ 


^^ 


5338 


MAKE2 LDA SKEE2 


; CHANGE ^^ 


Rl 


5348 


ADC n3 


JCHARACTER OF ^^H 


Vr 


5358 


STA SKEE2 


;THE SKEET ^V 


^T 


5368 


LDA tt8 


^^^ 


r — '"^ 


5378 
5388 


STA CSIZE 


c=S3 


L— 


~~"^ 


5398 


; P/M OF SKEET t2J 






5488 






1 




S418 


SKEE2UP CLC 






5428 


LDA SKEEZ 








5438 


ADC tt4 








5448 


STA TEMPO 








5458 


LDX LOSKEEZ 








5468 


LDY SKEE2 








5478 


DEX 








5488 


L00PSK2 LDA MG,Y 




5498 


STA PLAYER3 


X 






5588 


INK 








5518 


INY 








5528 


CPV TEMPO 








5538 


BNE L00PSK2 








5548 


LDA t«e 








5558 


STA PLAVER3 


X 






5588 


DEC L0SKEE2 








5578 


LDA L0SKEE2 




: 




5588 


CMP It24 




- 




5598 


BEQ RESETZ 




\ 




5688 


RTS 




:■ 




5618 


J 






5628 


SMALLl LDX CSIZE ; KEEP TRACK 






5638 


INX 


;0F DISTANCE 






5648 


STX CSIZE 


; SKEETl 






5658 


CPX »49 








5668 


BNE SKEEIUP 








5678 


HAKEl LDA SKEEl 


; CHANGE CHARACTER 






5688 


ADC tXZ 








5698 


STA SKEEl 









57ee 


LDA 


»8 


5718 


STft 


CSIZE 


5728 






5738 


; P/M OF SKEET CIJ 


S748 






5758 


SKEEIUP 


CLC 


5768 


LDA 


SKEEl 


5778 


ADC 


tt4 


5788 


STA 


TEMPO 


5798 


LDK 


LOSKEEl 


5888 


LDV 


SKEEl 


5818 


DEX 




5828 


LOOPSKl 


LDA MG,V 


5838 


STA 


PLAYERZ.X 


5848 


INK 




5858 


INY 




5868 


CPV 


TEMPO 


5878 


BNE 


LOOPSKl 


5888 


LDA 


tt8 


5898 


STA 


PLAVER2,X 


5988 


DEC 


LOSKEEl 


5918 


LDA 


LOSKEEl 


5928 


CMP 


St24 


5938 


BEQ 


RESET 


5948 


RTS 




5958 


1 




5968 


S RESET 


REGISTERS S COUNT ROUNDS 


5978 


1 




5988 


RESET2 JSR CLRSKE2 


5998 


INC 


ROUND 


6888 


INC 


CHECK 


6818 


LDA 


RANDOM 


68Z8 


STA 


DIRECT2 


6838 


JSR 


SIDE2 


6848 


ADC 


«t8 


6858 


STA 


HP0SP3 


6868 


STA 


PLX3 


6878 


LDA 


»2e8 


6888 


STA 


L0SKEE2 


6898 


LDA 


»1 


6188 


STA 


SKEE2 


6118 


LDA 


tt8 


6128 


STA 


TSHOT 


6138 


STA 


AUDFl 


6148 


STA 


AUDCl 


6158 


STft 


CDTMU3 


6168 


LDX 


ROUND 


6178 


CPX 


it3l 


6188 


BEQ 


ADDUP 


6198 


JSR 


DISPNUN 


6288 


JSR 


PUTROD 


6218 


STft 


HITCRL 


6228 


RTS 




6238 






6248 


; RESET 


SKEETl REGISTERS 


6258 






6268 


RESET JSR CLRSKEl 


6278 


INC 


CHECK 


6288 


LDft 


RANDOM 


6298 


STft 


DIRECT 


6388 


JSR 


SIDEl 


6318 


STA 


HPDSP2 


6328 


STA 


PLX2 


6338 


LDA 


tt288 


6348 


STA 


LOSKEEl 


6358 


LDA 


»1 


6368 


STA 


SKEEl 


6378 


STA 


HITCRL 


6388 


RTS 




6398 


i 




6488 


ADDUP LDA ns ;AT END OF GAME 


6418 


JSR 


816 ;GIUE S POINTS 


6428 


LDX 


SHOTS ;FOR EUER BULLET 


6438 


INX 


;that is left. 


6448 


STK 


SHOTS 


6458 


CPX 


«t68 



6468 


beo game 




6478 


JMP ADDUP 




6488 


J 




6498 


GAME LDX «te 


;DISPLftV ON 


6588 


OUER LDA END,X 


jthe screen 


6518 


STA SCR+135, 


X ;GAME OUER 


6528 


INX 




6538 


CPX tt9 




6548 


BEQ JAM 




6558 


JMP OVER 




6568 


t 




6578 


JAM LDA CONSOL 


JklAIT FOR 


6588 


CMP «6 


; START KEY TO 


6598 


BEQ AGAIN 


; BEGIN. 


6688 


LDA no 


; 


6618 


STA HP0SP2 


;GET PLAYERS 1,2 


6628 


STA HP0SP3 


;OUT OF THE 


6638 


JMP JAM 


;WAY 


6648 


; 




6658 


AGAIN JSR CLRAIM 


6668 


JMP START 




6678 


i 




6688 


END .SBVTE "GAME 


OVER" 


6698 


; 




6788 


SIDEl LDA DIRECT 


;SKEET ONE 


6718 


JMP SIDE 


; DIRECTION 


6728 


SIDE2 LDA DIRECT2 J SKEET THO 


6738 


SIDE CMP tt85 


; DIRECTION 


6748 


BMI LSIDE 




6758 


CMP ««178 




6768 


BMI MIDDLE 




6778 


BPL RSIDE 




6788 


RE RTS 




6798 


RSIDE LDA 858 


;LEFT SIDE 


6888 


JMP RE 




6818 


MIDDLE LDA «118 


; MIDDLE 


6828 


JMP RE 




6838 


LSIDE LDA W192 


; RIGHT SIDE 


6848 


JMP RE 




6858 


SKEEU2 JSR SMALLl ;MOVE SKEETl 


6868 


LDA SPEED 


;UP 


6878 


SEC 




6888 


CMP tt58 




6898 


BCC PXCK2 




6988 


JSR SMALLl 




6918 


LDA SPEED 




6928 


SEC 




6938 


CMP »168 




6948 


BCC PICK2 




6958 


JSR SMALLl 




6968 


JMP PICK2 




6978 


SKEE2U2 JSR 5MALL2 ; MOVE SKEET2 


6988 


SEC 


;UP 


6998 


LDft LOCATION 




7888 


CMP »212 




7818 


BC5 PAST 




7828 


JSR MOUEDN 


; GRAVITY 


7838 


PAST LDA SPEED 




7848 


SEC 




7858 


CMP tt58 




7868 


BCC GOUP 




7878 


JSR 5MALL2 




7888 


LDA SPEED 




7898 


SEC 




7188 


CMP «168 




7118 


BCC GOUP 




7128 


JSR SMALL2 




7138 


• 




7148 


GOUP JMP COU 




7158 


J 




7168 


;MAKE 16-BIT AUDIO WITH SUSTAIN 


7178 


e 




7188 


AU8 LDX AUINDX 




7198 


LDA SOUNDl.X 




7288 


STft ftUDFl 




7218 


INX 





7228 


LDA S0UND1,X 


7238 


STA AUDCl 


7248 


INX 


7258 


LDA SOUNDl.X 


7268 


STA CDTMV3 


7278 


INX 


7288 


STX AUINDX 


7298 


LDA «$FF 


7388 


STA CDTMF3 


7318 


RTS 


7328 


; 


7338 


PICKDIR LDft DIRECT ;MOVE IN NHAT 


7348 


CMP tt85 ; DIRECTION 


7358 


BMI SLEFT ; SKEETl 


7368 


CMP Itl78 


7378 


BMI SKEEU2 


7388 


BPL SRIGHT 


7398 


PICK2 LDA DIRECT2 JMOUE DIRECTION 


7488 


CMP »85 ;SKEET2 


7418 


BMI S2LEFT 


7428 


CMP ttl78 


7438 


BMI SKEE2U2 


7448 


BPL S2RIGHT 


7458 


JM> COU 


7468 


SLEFT LDX PLX2 ; MOVE SKEETl 


7478 


DEX ;left 


7488 


STK PLK2 


7498 


STX HP0SP2 


7588 


JMP SKEEU2 ^,_ 


7518 


SRIGHT LDK PLK2 ; MOVE SKEETl /^ /o 1 


7528 


INX ; RIGHT iCJJ^ 


7538 


STX PLX2 ^ — 


7548 


STX HP0SP2 1 —3 


7558 


JMP SKEEU2 'Z ly"^ 


7568 


52LEFT LDX PLX3 ;MOVE SKEET2 ' 


7578 


DEX ;left ^^ 


7588 


STX HP0SP3 ^^B 


7598 


STX PLX3 m^ 


7688 


JMP SKEEZU2 ^^^ 


7618 


SZRIGHT LDX PLX3 ; HOVE SKEET2 ^^^ 


7628 


INX ; RIGHT ^^B 


7638 


STK HP0SP3 ^^ 


7648 


STX PLXS ^^^ 


7658 


JMP SKEE2UZ C~~^~S 
CLRSKEl LDA SKEEl ; CLEAR SKEETl IJ--' 


7668 


7678 


ftDC tt4 


7688 


STA TEMPO 


7698 


LDX LOSKEEl 


7788 


LDY SKEEl 


7718 


BLANKl LDA ttO 


7728 


STA PLAYER2,X 


7738 


INX 


7748 


INY 


7758 


CPY TEMPO 


7768 


BNE BLANKl 


7778 


RTS 


7788 


CLRSKE2 LDA SKEE2 ; CLEAR SKEET2 


7798 


ADC tt4 


7888 


STA TEMPO 


7818 


LDX L0SKEE2 


7828 


LDY SKEE2 


7838 


BLANKZ LDA tt8 


7848 


STA PLAVER3,X 


7858 


INX 


7868 


INY 


7878 


CPY TEMPO 


7888 


BNE BLANK2 


7898 


RTS 


7988 


CLRAIM LDX tt8 ; CLEAR AIM 


7918 


LDft MB 


7928 


CLRLOOP INX 


7938 


STA PLAVER8,X 


7948 


STA PLAVER1,X 


7958 


CPX tt255 


7968 


BNE CLRLOOP 


7978 


JSR MOVEUP 


7988 


RTS 



©E) 



<P 



« 



^=^ 



7998 
8888 

seie 

8828 

8838 

8848 

8858 

8868 

8878 

8888 

8898 

8188 

8118 

8128 

8138 

8148 

8158 

8168 

8178 

8188 

8198 

8288 

8218 

8228 

8238 

8248 

S258 

8268 

8278 

8288 

8298 

8388 

8318 

8328 

8338 

8348 

8358 

8368 

8378 

8388 

8398 

8488 

8418 

8428 

8438 

8448 

8458 

8468 

8478 

8488 

8498 

8588 

8518 

8528 

8538 

8548 

8558 

8568 

8578 

8588 

8598 

8688 

8618 

8628 

8638 

8648 

8658 

8668 

8678 

8688 

8698 

8788 

8718 

8726 

8738 

8748 



DI5PNUM LI>Y tte 

TKft 

SEC 
L81 SBC «t$e4 

BCC L82 

INY 

TOK 

BCS Lei 
L82 CLC 

TYfl 

AI>C tS$18 

STA HUNDRED 

LDY tte 

THA 

SEC 
L83 SBC tt$8A 

BCC L84 

INV 

TAX 

BCS LBS ' 
104 CLC 

TYA 

ADC tt$ie 

STA TEM 

TKA 

ADC tt$18 

STA ONE 

RT5 



; DISPLAY NUMBER 
;DN THE SCREEN 



TSCORE LDA SCOREL ;PRINT SCORE 
STA FRO ;0N SCREEN 
LDA SCOREH 
STA FRO+1 
JSR IFP 
JSR FASC 
LDY tte 

581 LDA CINBUFF),V 

BHi sez 

IHY 
BNE S81 

582 AND tt$7F 
LDK tt4 

583 SEC 

SBC tt$28 
STA DISP+38,X 
CPX tte 
BEQ ses 

DEK 

DEV 

CPY «$FF 

BEQ S84 

LDA CINBUFF),V 

CLC 

BCC SB3 

584 INY 

LDA tt$3e 
BNE S83 

585 RTS 

PUTHIT LDA HUNDRED ;PUT tt OF 

STA DISP+46 ;HIT5 ON 

LDA TEN ; SCREEN 

STA DISP+47 

LDA ONE 

STA DISP+48 

RTS 

PUTSHOT LDA HUNDRED J PUT tt OF 

STA DISP+7 ;SHOTS ON 

LDA TEN ; SCREEN 

STA DI5P+B 

LDA ONE 

STA DISP+9 

RTS 
PUTROD LDA HUNDRED JPUT tt OF 

STA DISP+7B ; ROUNDS 

LDA TEN ;0N SCREEN 

STA DI5P+71 



8758 

8768 

8778 

8788 

8798 

8888 

8818 

8828 

8838 

8848 

8850 

8868 

8878 

8888 

8898 

8908 

8918 

8928 

8938 

8948 

8958 

8968 

8978 

8988 

8998 

9888 

9818 

9828 

9838 

9848 

9858 

9868 

9878 

9888 

9898 

9188 

9118 

9128 

9138 

9148 

9158 

9168 

9178 

9188 

9198 

9288 

9218 

9228 

9238 

9246 

9258 

9268 

9278 

9288 

9298 

9388 

9318 

9328 

9338 

9348 

9358 

9368 

9378 

9388 

9398 

9408 

9418 

9428 

9438 

9448 

9458 

9468 

■■9«7« 

MM 
95Ba 



LDA ONE 
STA DISP+72 
RTS 
SCSP LDA SPEED 
SEC 
CMP ttl68 

BCS scse 

SEC 

CMP tt5e 

BCS SC25 
SC18 LDA ttie 

STA POINT 

RTS 
SC2S LDA tt25 

STA POINT 

RTS 
SC58 LDA ttSe 

STA POINT 

RTS 



;SET VALUE OF 
;SKEETS 
{DEPENDING ON 
) SPEED 



;GIUE le FOR SLOW 



JGIUE 25 FOR MED. 



;GIIIE 58 FOR FAST 



; DATA FOR NEH CHARACTER SET 

CHDATA .BYTE 56,128,216,24,24 
.BYTE 24,24,225 
.BYTE 8,8,8,8,8,8,8,8 
.BYTE 8,124,12,12,124 
.BYTE 96,96,124 
.BYTE 8,8,0,124,12,124,12,124 
•BYTE 8,8,0,8,8,54,62,6 
.BYTE 68,195,195,195,195 
.BYTE 195,195,68 
.BYTE 8,56,188,188,188 
.BYTE 188,188,56 
.BYTE 8,8,8,56,188,188,108,56 
.BYTE 0,8,8,8,8,28,54,28 
.BYTE 85,8,8,0.8,8,0,0 

;LEFT OR RIGHT DATA FOR STICK 

STRK .BYTE 8,8,6,8,8,1,1,1 

.BYTE 8,-1,-1,-1,0,0,8,8 

;UP OR DOWN DATA FOR STICK 

STRY .BYTE 8,8,8,0,8,1,-1,8 
.BYTE 8,1,-1,8,8,1,-1,8 

•GRAPHICS FOR AIH(GUNSIGHT) 

PIC .BYTE 16,16,16,8,8,8 

.BYTE 146,8,8,8,16,16,16 

; GRAPHICS FOR SKEETS 

MG .BYTE 8,56,124,254,8,48,128 

.BYTE 252,8,32,112,248,8,32 

.BYTE 112,8,8,8,8,8,0,8,8 

.BYTE 8,8,8,8,28,65,8,34,8 

.BYTE 32,132,32,88,128,16 

.BYTE 128,64,128,32,8,0,0,8,8 

Igraphics for bullet 

PIC2 .BYTE 0,0,0,124,124,124 

•BYTE 124,124,124,124,0,0,0 

Jdli routine 

DLI PHA 
TKA 
PHA 

LDK DLIREG 
LDA TABLE, X 
INK 

STK DLIREG 
STA WSYNC 



9518 


STA COLBK 


9528 


STA C0LPF2 


9530 DLOOP LDA 


tt3e 


9540 


CMP DLIREG 


9550 


BNE Al 




9560 


LDA tte 




9576 


STA DLIREG 


9588 Al 


PLA 




9598 


TAX 




9688 


PLA 




9618 


HTI 




9628 ; 






9638 ; COLOR TABLE FOR SKY 


9640 ; 






9658 TABLE .BYTE 242,242,242,242,242 


9660 


.BYTE 


242,226,210,194,178 


9678 


.BYTE 


162,146,138,114,98,82 


9688 


.BYTE 


66,2,2,2,4,4,4,4,4,4 


9698 


.BYTE 


4,4,4,4,4 


9780 ; 






9718 ;DATA FOR 


AUDIO SOUNDS 


9720 ; 






9730 SOUNDl .BYTE 28,$8F,8 


9748 


.BYTE 


18,$8A,4 


9758 


.BYTE 


16,585,2 


9768 


.BYTE 


14, $82, 18 


9778 


.BYTE 


18, $82, 12 


9788 


.BYTE 


8,8,6 - — V 


9798 


.BYTE 


28, $84, 4 O'Jr?) 


9880 


.BYTE 


18, $86, 4 \rU^ 


9818 


.BYTE 


16, $88, 4 ^^ 


9826 


.BYTE 


14,$8A,4 r TD 


9838 


.BYTE 


48,$2D,1 1 13 


9848 


.BYTE 


4e,$2A,2 '— -_ 


98S8 


.BYTE 


48, $24, 2 ^^^ 


9868 


.BYTE 


6,8,8 -^^M 


9878 S0UND2 .BYTE 10,$BF,18 ^^^ 


9888 


.BYTE 


9,S8A,8 ^^ 


9898 


.BYTE 


^^ 


9988 


.BYTE 


7, $85, 6 ^^B 


9918 


.BYTE 


6, $83, 5 ^V 


9928 ; 




^^^ 


9936 ;DATA for 
9946 ; 


SCREEN '-^^^IT^ 


9956 CHARDT .BYTE 288,6,266,8,166,8 


9966 


.BYTE 


3,8,1,5,2,9,28 


9976 


.BYTE 


8,1,5,2,9 


9988 


.BYTE 


6,6,34,16,5,6,1,4,2,8 


9998 


.BYTE 


38,8,1,4,2,8,4,6,36,18 


eieeee 


.BYTE 


43,6,1,3 


818616 


.BYTE 


2,7,32,6,1,3,2,7,2,6 


818020 


.BYTE 


38,18,81,6,1,1,2,6,34,6 


818830 


.BYTE 


1,1,2,6,46,18,1,8,1 


018646 


.BYTE 


51,1,48,1,47 


818856 


.BYTE 


1,52,1,51,1,26,17,8.1 


818866 


.BYTE 


51,1,35,1,47,1,56,1,37 


818678 


.BYTE 


1,26,11,6,1,46,1,41,1 


818686 


.BYTE 


52,1,51,1,26,18,8 


618898 


.BYTE 


1,58,1,47,1,53,1,46,1 


618188 


.BYTE 


36,1,26,11,8 


616118 






816126 


; DISPLAY LIST 


818136 






618146 


LST .BYTE SF8,$F8,SF6,SC2 


816158 


.BYTE 


SCRft255, SCR/256 


816168 


.BYTE 


$82, $82, $82, $82, $82 


816178 


.BYTE 


$8C,$8C,$8D,$8D,$8D 


618186 


.BYTE 


$8D,$8D,$8D,$8D 


618198 


.BYTE 


$82, $82, $82 


818288 


.BYTE 


$82, $82, $82, $82, $82, $82 


818218 


.BYTE 


$82, $82, $82, 2, $41 


818220 


.MORD 


LST 


010230 






010248 


■SCREEN 


DISPLAY 


010250 




m 


010266 


.END 



®E) 



f> 



^ 



c=^ 



continued from page 9 

How things came to be 

When my usual attack of the pre-Christmas 
flu grounded me recently, I started thinking 
again about a project that had already been 
on my mind for quite some time, but for 
which I had never found enough time to im- 
plement: a RAM disk for the 800XL. There 
is, after all, in every 64K XL, a 14K bank 
of RAM beneath the operating system ROM's 
where it does, more or less, nothing. 

The question then was how to use this 
RAM as a drive. The first possible solution 
that occurred to me was to write a RAM disk 
device driver. I soon discarded that sugges- 
tion, however, because it would involve writ- 
ing a complete File Management system. And 
that particular wheel is already among us in 



the guise of DOS.SYS. 

So why not adapt the DOS RAM-disk rou- 
tines to work with the much smaller 800XL 
free RAM space? Alas, after a lot of disas- 
sembling, this proved to be a dead end too. 
I have no doubt at all that it could be done, 
but not without a commented source listing, 
like the one available for DOS 2.0 in Inside 
Atari DOS. 

At this point I was ready to abandon the 
project had my fiancee not challenged me to 
go on. Wasn't I the one who kept telling peo- 
ple what a wonderful and flexible machine 
the 800XL really was? (See, Caroline, I told 
you you'd get the credit you're due.) So grum- 
bling (quietly) I started again by studying the 
DOS 2.0 listing. 

And then the golden idea hit home. 

All DOS functions eventually vector 



through SIOV and DSMNV for their im- 
plementation. And for each of these routines 
there is in DOS 2.5 one, and only one, place 
where it is called. So if we could just inter- 
cept these calls, we would then be able to 
check whether the device addressed is a 
RAM disk and, if so, take appropriate meas- 
ures. And that is precisely what RAM Disk 
800XL does. 

For the hard-core addict 

Listing 2 is the assembly language source 
code for RAM Disk 800XL. You don't need 
to type it in, it is there only for those people 
interested in assembly language program- 
ming. Figure 1 shows how the extra RAM is 
used by the D5: driver. Figure 2 gives you 
the MDRIVE memory usage. 



The most useful program lor the Atari since Print Shop!*" 



FORMS GENERATOR 

for the Atari 800, 800XL, 65XE, 130XE 

Designed by Jeff Brenner, columnist for Computer Shopper 
magazine, of "Applying Tfie Atari" fame, and author of book 
and magazine articles in COMPUTE'.. ANALOG and others 
LOOK WHAT YOU CAN DO WITH FORMS 
GENERATOR: Purchase merchandise by mail? Next 
time, send a customized purchase order form! Does 
your home or business ever need statements, in- 
voices, proposals, job work orders, gift certificates, 
etc.? No problem! Use FORMS GENERATOR'S scrolling spreadstieet- 
style screen to design almost any form to suit your exact needs. What 
you see on-screen is what you get on paper! Use the text mode with any 
80-column printer, or the high-res graphics mode with the Epson. 
Gemini/Star, Okidata, Panasonic or Prowriter for remarkably realistic 
forms. BUT THAT'S JUST THE BEGINNING: Once you've designed a 
form, you can program FORMS GENERA TOR to make all calculations 
automatically! Imagine: after you enter quantities, descriptions and 
prices, FORMS GENERATOR moves about the form calculating ex- 
tended prices, subtotals, and even the sales tax! Like magic! (Sample 
invoices included). You can also use FORMS GENERA TOR for record 
keeping, since you can save filled forms to disk! 

NAMED A "BEST BUY" IN 8-BIT SOFTWARE BY ANTIC fVlAGAZINE, JANUARY 1968 
Our "down to planet Earth" price: Only $23.95 (product #ATA611). 



FOR C.O.D. ORDERS CALL (516) 932-5330 



Send coupon to: 

Toienty-fifth 
Century'" 



D YES! Please rush me FORMS GENERA FOfl (product 
«ATA6n) with complete documentation, 90-day free 
replacement warranty, full customer service support and 
20-page Atari software catalog. I am enclosing $23.95 
- $3.50 shjppmg and handling, 

QCheck/K/loney Order enclosed DC.O D.(add$2.50) 
Name 



Softujore Division 
Dept. AT 2 

254 fifth Ffjznue 

Suite 501 

Neuj Vorti. NV 10001 



Address _ 
City 



State - 



-Zip. 



DEALER INQUIRIES INVITED. 

New York State residents add 8% sales tax 
'The Print Shop and Atari are registered trademarl<s ol Broderbund Soltware and Atari 
Corp.. respectively — Prices and avaitabitity siibiect to change without notice. 

CIRCLE #101 ON READER SERVICE CARD. 



Address: Use: 

$C000 + + 

I MDRIVE SIO routine | 
$C100 + + 

I VTOC (sector $168) | 
$C180 -I- -1- 

I Directory (sector $169) | 
$C200 + -I- 

I data (sector $171-$18C | 
$CFFF -I- ! 

$D800 + + 

I data (sector $18D-$1DC | 
$FFFF + + 

Figure 1. 
RAM disk memory usage 

MDRIVE: Run Use: 

$3800 $3800 + + 

I install MDRIVE | 

$38EC $6BC -f -I- 

I runtime routines | 

$3930 $C000 + + 

I SIO commands | 

$39CF -f + 

Figure 2 
MDRIVE memory usage 

Jerry van Dijk uses his Atari both as a study 
tool and for recreation. His main interests are 
system-level programming and the use of com- 
puters in law practice. 

SEPTEIV1BER A.N.A.L.O.Q. Cc3mput;ing 




t^ 



1080 DftTfl 255,255,0,56,288,57,32,269,5 

6,169,234,141,35,241,173,35,8711 

1810 DATA 241,170,32,226,56,224,234,24 DlSk 800XL 

0,1,96,169,11,162,0,141,66,6010 wiwn wvw»i. 

1020 DATA 3,169,163,141,68,3,169,56,14 

1,69,3,173,205,56,141,72,5187 

1030 DATA 3,173,206,56,141,73,3,32,86, 

228,32,209,56,169,0,168,5337 

1040 DATA 153,0,193,153,128,193,200,20 

8,247,169,2,141,0,193,169,110,9870 

1050 DATA 141,1,193,169,108,141,3,193, 

169,127,141,56,193,169,255,160,1673 

1060 DATA 57,153,0,193,200,192,69,208, 

248,169,248,153,0,193,172,208,3590 

1070 DATA 56,185,49,57,153,255,191,136 

,208,247,32,226,56,172,207,56,1134 

1080 DATA 185,237,56,153,187,6,136,208 

,247,173,10,7,9,80,141,10,3765 

1090 DATA 7,32,224,7,169,188,141,107,1 

6,169,6,141,108,16,169,202,6664 

1100 DATA 141,176,7,169,6,141,177,7,96 

,125,29,29,29,29,29,29,8924 

1110 DATA 32,32,83,101,116,116,105,110 

,103,32,85,112,32,65,84,65,1902 

1120 DATA 82,73,32,56,48,48,88,76,32,8 

2,97,109,32,68,105,115,1686 

1130 DATA 107,155,155,42,0,69,160,120, 

169,0,141,14,212,173,1,211,6483 

1140 DATA 133,203,169,254,141,1,211,96 

,165,203,141,1,211,88,169,64,8770 

1150 DATA 141,14,212,96,32,243,6,240,3 

,76,83,228,160,1,140,3,4597 

1160 DATA 3,96,32,243,5,240,3,76,89,22 

8,120,169,0,141,14,212,6527 

1170 DATA 173,1,211,133,203,169,254,14 

1,1,211,32,0,192,165,203,141,23 

1180 DATA 1,211,88,169,64,141,14,212,1 

92,0,96,173,0,3,201,49,4204 

1190 DATA 208,5,173,1,3,201,5,96,173,2 

,3,201,82,240,37,201,6174 

1200 DATA 80,240,18,201,87,240,14,197, 

83,240,4,160,168,208,2,160,8964 

1210 DATA 1,140,3,3,96,32,72,192,173,4 

,3,133,204,173,5,3,2647 

1220 DATA 133,205,208,13,32,72,192,134 

,204,132,205,174,4,3,172,5,5700 

1230 DATA 3,134,206,132,207,160,127,17 

7,204,145,206,136,16,249,48,207,1857 

1240 DATA 173,11,3,201,1,240,6,104,104 

,160,144,208,196,173,10,3,6351 

1250 DATA 201,104,208,5,162,0,160,193, 

96,201,105,208,5,162,128,160,9115 

1260 DATA 193,96,201,113,144,225,201,2 

21,176,221,201,141,176,10,56,233,2638 

1270 DATA 113,32,143,192,169,194,208,8 

,56,233,141,32,143,192,169,216,1480 

1280 DATA 24,101,205,168,166,204,96,13 

3,204,169,0,133,205,162,7,6,6839 

1290 DATA 204,38,205,202,208,249,96,22 

6,2,227,2,0,56,0,0,0,1045 



00250 ; 

00260 ; MDRIUE CONSTANTS 

00270 ; 

00280 ; 



^ 


00010 
00020 




.LI OFF 






oa 


00030 


* 




» 


S 


00040 


* 


MDRIUE 2.5 


» 


00050 


* 




* 




LU 


00060 


» 




» 


92 


00070 


« 


Ran disk driver for BOOKL 


* 


CO 


00080 


» 


With DOS 2.5 


» 




00090 


* 




* 




00100 


* 


Use as RflMDI5K.COM tD5;J 


* 


CM 


00110 


* 




« 


00120 


^ 


Author : Jerry van Dijk 


» 


CS 


00130 


» 


Pelikaanhof 15 


» 


00140 


n 


2312 Eft Leiden 


* 


00150 


* 


The Netherlands 


» 


^^ 


00160 


» 




» 


M 


00170 


^ 


Last revision: 12-dec-1988 


» 




00180 


« 




* 


•1 


00190 


« 


written in SynflsseMbler 


* 




0020S 


* 




^ 




00210 


« 


>>> USES PftRT OF PAGE 5 <<< 


* 




00220 
00230 


* 




* 








00240 


; 







00290 


MflXSEC 


.EQ 


Soi ;Max sector hi 


OOSOO 


OFFSET 


.E« 


$38 ;UT0C off-set 


00310 


SECNUM 


.EQ 


S45 ;UTOC data sec 


00320 


USEC 


.EQ 


$68 ;UTOC sec 10 


00330 


D5EC 


.EQ 


569 ;DIR sec lo 


00340 


SECLOW 


.EQ 


$71 jDATA sec low 


00350 


SECMID 


.EQ 


$8D ;DATA sec Mid 


00360 


SECHIGH 


.EQ 


$DD ;DATA sec high 


00370 


TE5TBYT 


.EQ 


$EA JRAM test byte 


00380 
00390 
00400 
00410 
00420 












MDRIUE EQUATES 










00430 


TEMP 


.EQ 


$CB 


;MeMory stat 


00440 


ZPftGE 


.EQ 


$cc 


;TeMp. adr 


00450 


MPROG 


.EQ 


$3800 


;Prog begin 


00460 


RTSTflRT 


.EQ 


S38EE 


; RT origin 


00470 


EKSTflRT 


.EQ 


$3932 


;EK origin 


00480 


RAMLOW 


.EQ 


$COO0 


;Low RAM blk 


00490 


VTOC 


.EQ 


SCIOO 


J VTOC adr 


00500 


DIR 


.EQ 


$C180 


;DIR adr 


00510 


LOWBflNK 


.EQ 


$C200 


;DATA lo adr 


00520 


HIGHBflNK 


.EQ 


$D800 


;data hi adr 


00530 


SOMERftM 


.EQ 


SF123 


;Test RAM 


00540 










00550 
00560 












DOS 


2.5 CONSTANTS 


00570 
00580 


















00590 


D5 


.EQ 


$05 ;D5: device 


00600 


DRU5 


.Efl 


$50 ;Drive 5 


00610 


SECLEN 


.EQ 


$7F ;Sector length 


00620 
00630 
00640 
00650 
00660 












DOS 


2.5 EQUATES 










00670 


DRVBYT 


.EQ 


$70A 


Act. drives 


00680 


D5I0 


.EQ 


$780 


Slog call 


00690 


DINIT 


.EQ 


$7E0 . 


Init DOS 


00700 


DDSK 


.EQ 


$106B 


DSKINV call 


00710 
00720 


















00730 
00740 




ATASCII CODE'S 










00750 










00760 


CD 


.EQ 


$1D J Cursor down 


00770 


CLS 


.EQ 


$7D ;Clear screen 


00780 


EOL 


.EQ 


$9B ;Clear screen 


00790 
00800 


















00810 
00820 




XL SYSTEM CONSTANTS 










00830 










00840 


iocBO 


.EQ 


$00 JIOCB offset 


00850 


NMIOFF 


.EQ 


$00 ;NMI off value 


00860 


OK 


.EQ 


$01 ;Nc 


) error code 


00870 


PUTBUF 


.EQ 


$06 ;cio put buf 


00880 


DISK 


.EQ 


$31 ;SI0 dis code 


00890 


NMION 


.EQ 


$40 ;NMI on value 


00900 


WRITE 


.EQ 


$50 ;SI0 put CMd 


00910 


READ 


.EQ 


$52 JS] 


CO get CMd 


00920 


STATUS 


.EQ 


$53 ;5] 


[0 Stat CMd 


00930 


VERIFY 


.EQ 


$57 ;S] 


[0 put CMd 


00940 


NOSEC 


.EQ 


$90 jSector error 


00950 


NOCMD 


• EQ 


$A8 ;Cf 


(d error 


00960 


RAMON 


.EQ 


SEE JRC 


M disable 


00970 
00980 


















00990 
01000 




XL SYSTEM EQUATES 










01010 










01020 


DDEUIC 


.EQ 


$300 , 


DCB device 


01030 


DUNIT 


.EQ 


S301 


DCB unit 


01040 


DCOMND 


.EQ 


$302 


DCB CMd 


01050 


D5TAT5 


.EQ 


$303 


DCB Status 


01060 


DBUFLO 


.EQ 


$304 


DCB buf 10 


01070 


DBUFHI 


.EQ 


$305 


DCB buf hi 


01080 


DAUKl 


.EQ 


$30A 


DCB sec 10 


01090 


DAUX2 


.EQ 


$30B 


DCB sec hi 


01100 


ICCOM 


.EQ 


$342 


CIO CMd 


OHIO 


ICBAL 


.EQ 


$344 


CIO buf 10 


01120 


ICBAH 


.EQ 


$345 


CIO buf hi 


01130 


ICBLL 


.EQ 


$348 


CIO len 10 


01140 


ICBLH 


.EQ 


$349 


CIO len hi 


01150 


PAGE6 


.EQ 


$6BC 


Free space 


01160 


PORTB 


.EQ 


SD301 


MeMory Ctrl 


01170 


NMIEN 


.EQ 


$D40E 


NMI control 


01180 


DSKINV 


.EQ 


$E453 


SIO status 


01190 


CIOV 


.EQ 


$E456 


CIO vector 


01200 


SIOU 


.EQ 


$E459 


SIO vector 


01210 
01220 
01230 
01240 


; 








» Check for RAM 


Module * 






01250 










01260 


; This Module is th( 


> first run 


01270 


; when MDRIUE is ex( 


'cuted. It 


01280 


; checks 


whether th( 


're is RAM 


01290 


; beneath the OS. I 


f there is 


01300 


; it runs the insta 


1 Module 



SEPTEMBER A.IM.A.L.a.B. Computing 



27 



01310 


; otherwise 


it siMply exits. 


01320 


J 






01330 




.OR 


MPROG 


01340 


; 






01350 


MDRIUE 






01360 


; 






01370 


; Disable OS 


ROM'S 


01380 








01390 




JSR 


ROMOFF 


01400 








01410 


; Store 


8 retrieve a byte 


01420 








01430 




LDfl 


aiESTBYT 


01440 




STA 


SOMERflM 


01450 




LDfl 


SOMERflM 


01460 




TflK 




01470 








01480 


; Restore 05 


ROM'S 


01490 








01500 




JSR 


ROMON 


01510 








01520 


Check 


if there is RAM 


01530 








01540 




CPU 


tJTESTBYT 


01550 




BEC! 


INSTflLL 


01560 




RTS 




01570 












OlboO 1 








01590 » INSTALL 


RAM DISK MODULE * 


01600 ^ 
01610 




01620 


Module to 


install the RAM 


01630 


disk. 


It foTMats the disk. 


01640 


Makes 


the 


BOS patches and 


01650 


copies the 


runtiMe and 


01660 


Modules in 


place . 


01670 








01680 


:nstoll 






01690 








01700 


First 


print a Message 


01710 








01720 




LDfl 


aPUTBUF 


01730 




LDX 


ttlOCBO 


01740 




STfl 


ICCOM 


01750 




LDfl 


«MSG 


01760 




STfl 


ICBflL 


01770 




LDfl 


/MSG 


01780 




STfl 


ICBAH 


01790 




LDfl 


MSGLEN 


01800 




STfl 


ICBLL 


01810 




LDfl 


MSGLEN+1 


01820 




STfl 


ICBLH 


01830 




JSR 


CIOU 


01840 , 








01850 ; 


Disabl 


e 05 


ROM'S 


01860 ; 








01870 




JSR 


ROMOFF 


01880 ; 








01890 ; 


Clear 


vtoc 


& directory 


01900 ; 








01910 




LDfl 


no 


01920 




TflY 




01930 . 





STfl 


UT0C,V 


01940 




STfl 


DIR,V 


01950 




INY 




01960 




BME 


.0 


01970 ; 








01980 ; 


Write 


UTOC 


sector 


01990 ; 








02000 




LDfl 


«2 


02010 




STfl 


UTOC 


02020 




LDfl 


niio 


02030 




STfl 


UTOC+1 


02040 




LDfl 


«108 


02050 




STfl 


UTOC+3 


02060 




LDfl 


as'.oiiiiiii 


02070 




STfl 


WTOC+OFFSET 


02080 




LDfl 


«>^lllllill 



02090 

02100 

02110 

02120 

02130 

02140 

02150 

02160 

02170 

02180 

02190 

02200 

02210 

02220 

02230 

02240 

02250 

02260 

02270 

02280 

02290 

02300 

02310 

02320 

02330 

02340 

02350 

02360 

02370 

02380 

02390 

02400 

02410 

02420 

02430 

02440 

02450 

02460 

02470 

02480 

02490 

02S00 

02510 

02520 

02530 

02540 

02550 

02560 

02570 

02580 

02590 

02600 

02610 

02620 

02530 

02540 

02650 

02660 

02670 

02680 

02690 

02700 

02710 

02720 

02730 

02740 

02750 

02760 

02770 

02780 

02790 

02800 

02810 

02820 

02830 

02340 

02850 

02860 



LDV tJOFFSET + 1 
.1 STA UT0C,Y 
IHY 

CPY ttSECNUM 
BME .1 

LDA a/.lllllOOO 
STA VTOC,Y 

; Copy execute Module in place 

LDY EKLEN 
.2 LDA EKSTflRT-l,Y 
STfl RAML0W-1,Y 
DEY 
BNE .2 

• Enable OS ROM's 

JSR ROMON 

; Copy runtiMe Module in place 

LDY RTLEN 

.3 LDA RTSTART-1,Y 

STfl PflGE6-l,Y 
DEY 

BNE .3 

; fldd D5: to DOS 

LDfl DRUBYT 
ORA «DRUS 
STfl DRUBYT 
JSR DINIT 

; Patch DOS DSKINU call 

LDfl «MDSK 

STfl DDSK 

LDfl /MD5K 

STfl DDSK+1 

; Patch DOS SIO call 

LDfl aMSIO 
STfl DSIO 
LDfl /MSIO 
STfl DSIO+1 

; iMStallation done 

RTS 

; The Message 

MSG .DA aCLS,nCD,«CD,«CD 
.Dfl ttCD,«CD,«CD 
.AS ' Setting Up ATA' 
.AS 'RI 800KL Ran Dis' 
.flS 'k' 
.DA aEOL,«EOL 



MSGLEN 


.Dfl 


MSGLEN 


-MSG 


; RuntiMe 


Module 


length 


RTLEN 


Dfl 


tJRTEND 


-PflGE6+l 


; Execute 


Module 


length 


EXLEN 


Dfl 


ttEXEND- 


-RflMLOW+1 


; MDRIUE 


5UBR0UTINE5 


ROMOFF 










; Disable 


OS 


ROM 


s 





02870 


1 










02880 




5EI 








02890 




LDfl aNMIOFF 








02900 




STfl NMIEN 








02910 




LDfl PORTB 








02920 




STfl TEMP 








02930 




LDfl SRflMON 








02940 




STfl PORTB 








02950 




RTS 








02960 












02970 


ROMON 










02980 












02990 


I Enable 


OS ROM's 








03000 












03010 




LDfl TEMP 








03020 




STfl PORTB 








03030 




CLI 








03040 




LDfl MNMION 








03050 




STfl NMIEN 








03060 




RTS 








03070 
03080 
03090 
03100 
03110 












* RUNTIME MODULE * 
















03120 


; This code is called by DOS if 








03130 


; it executes a DSKINU CSIO 








03140 


; status) or 510 call. 








03150 


; If deu 


ice is D5; and it is a 








03160 


; status 


call the status is set 








03170 


; to OK 


and the routine exits. 








03180 


■ If dev 


ice is D5: and it is a 








03190 


SIO call then the OS ROM's 








03200 


are disabled and a jump is 
Made to the execute Module to 


o 






03210 


r A 1 


03220 


execute the coMMand. 


K' 


03230 


If the 


device isn't D5; then 


I — j^—jf 


03240 


the routine continues with 


tr "■ — ^ 


03250 
03260 


DSKINU 


or 5I0U. 


eo 


p^£| 


03270 


RuntiMe code origin; 


o 




1' '^ 1 


03280 
03290 




.OR PflGEB 


X 


<^ 


03300 




.Tfl RTSTflRT 




1^^ 1 


03310 
03320 






















03330 
03340 




DSKINU PflTCH 


















03350 












03360 MDSK 










03370 












03380 , 


Check 


if device is D5: 








03390 , 












03400 




JSR CHKDEU 








03410 




BEQ DODSK 








03420 , 












03430 , 


If not 


continue with DSKINU 








03440 , 












03450 




JMP DSKINU 








03460 , 












03470 , 


Otherwi 


;e set status « return 








03480 , 












03490 DODSK 


LDY «0K 








03500 




STY DSTflTS 








03510 




RTS 








03520 , 
03530 , 
03540 , 
03550 , 
03560 , 














SIOU PflTCH 


















03570 MSIO 










03580 , 












03590 , 


Check 


f device is DS; 








03600 ; 












03610 




JSR CHKDEU 








03620 




BEQ DOSIO 








03630 ; 












03640 ; 


If not 


continue with SIOU 









03658 
03668 
03670 
03688 
03698 
03700 
03710 
03720 
03730 
03740 
83750 
83768 
83770 
83788 
83798 
83800 
83810 
03820 
03838 
03840 
03850 
83868 
03878 
03880 
83890 
83980 
03918 
03920 
03930 
03940 
83958 
83968 
03970 
03980 
03990 
84000 
04018 
04020 
04030 
84040 
84058 
04060 
04070 
04080 
04090 
04100 
84118 
84128 
84138 
04140 
04158 
84168 
84178 
84180 
04190 
04280 
04210 
04220 
04230 
04Z40 
04250 
04260 
04270 
04230 
04290 
04300 
04310 
04328 
04330 
04340 
04350 
04360 
04370 
04380 
04390 
04400 
04410 
04420 



JMP SIOU 
; Otherwise run execute Module 
D05I8 



SEI 




LDft 


KNMIOFF 


5T(l 


NMIEN 


LDA 


PGRTB 


STfl 


TEMP 


LDft 


aRUMOM 


STft 


PORTS 


J5R 


EKEC 


LDfl 


TEMP 


STft 


PORTB 


CLI 




LDfl 


ttNMIOM 


5Tfl 


NMIEN 


CPY 


SO 


RTS 





RUNTIME SUBROUTINES 



Check if SIO device is 05: 
Returns with zero flag set is 
it is. 

LDfl DDEUIC 
CMP «DI5K 
BNE CHKDN 
LDfl DUNIT 
CMP ttD5 
CHKDN RTS 



END OF RUNTIME 



RTEND 

XXXXKKKKMXKKXXKXKKKKKXKKKKKXKXIC 
* EXECUTE COMMAND MODULE * 
XXXXKKXXXXXXXXXXXXXXXXXXXXXXXXX 

This code, which is hidden 
beneath the OS, executes the 
RAM Disk SIO COMMandS. 

■OR RflMLOW 
■ Tfl EKSTClRT 

Decode coMMand 



LDft 


DCOMND 


CMP 


«REftD 


BEQ 


GET5EC 


CMP 


«WRITE 


BEQ 


PUTSEC 


CMP 


ttUERIFY 


BEQ 


PUTSEC 


CMP 


STATUS 


BEQ 


SETOK 



No coMMand then return error 



LDY tJNOCMD 
BNE ERRKIT 



SET STATUS 



SETOK 
ERRXIT 



LDY «0K 
STY DSTATS 



04430 




RTS 


04440 
04450 
04460 








PUT SECTOR 


84480 






04498 


PUTSEC 




04500 






04510 


; Calculate sector address 


04520 






04538 




JSR CALC 


04540 






04550 


; Moye 


data set-up 


04560 






04570 




LDft DBUFLO 


04530 




STft ZPftGE 


04590 




LDft DBUFHI 


84608 




STft ZPftGE+1 


84618 




BNE MOUE 


04620 
04630 










04640 
04650 




GET SECTOR 






84660 






04670 


GETSEC 




04680 






04690 


; Calculate sector address 


04700 






04710 




JSR CALC 


04720 






04738 


; Move 


data set-up 


04740 






04750 




STX ZPftGE 


04760 




STY ZPAGE+1 


04770 




LDX DBUFLO 


04788 




LDY DBUFHI 


04790 






04800 


; Move 


the data: FROM address 


04810 


; in CZPAGE), TO address in X,Y 


04828 






84838 


MOUE 


STX ZPftGE+2 


04840 




STY ZPftGE+3 


04850 




LDY tlSECLEN 


04860 


.0 


LDA CZPftGE),Y 


04870 




STA CZPftGE+2),Y 


04S80 




DEY 


04890 




BPL .0 


84908 




BMI SETOK 


84918 












04930 


; CALCULATE SECTOR ADDRESS 








04950 






84960 


CftLC 




04970 






84988 


; First 


Check the high byte 


84998 






85000 




LDA DftUX2 


05018 




CMP «MAXSEC 


05020 




BEQ DOCALC 


85830 






85840 


; If not then a illegal sector 


05858 






05060 


5ECERR 


PLA 


05878 




PLA 


05888 




LDY ttNOSEC 


85898 




BNE ERRKIT 


85100 






85118 


; Check 


if vtoc sector 


85120 






85130 


DOCALC 


LDA DAUXl 


85140 




CMP aUSEC 


05150 




BNE CHKDIR 


05160 






05170 


; If it 


is set address $ return 


05180 






05198 




LDX ttVTOC 


85288 




LDY /UTOC 



05210 




RTS 






05220 










05230 


Check 


if directory sector 






05240 










05250 CHKDIR 


CMP aDSEC 






05260 




BNE CHKDftT 






05270 










05280 


If so 


, set address & return 






05290 










05388 




LDX ttDIR 






B5318 




LDY /DIR 






05328 




RTS 






05330 










05340 


Check 


if sector not too low 






05350 










05360 CHKDftT 


CMP aSECLOW 






05370 




BCC 5ECERR 






05380 










05390 


Check 


if not too high 






05408 










05418 




CMP aSECHIGH 






85428 




BCS SECERR 






05438 










05448 


Find 


RAM bank 






05458 










05468 




CMP aSECMID 






05478 




BCS .0 






85488 










85490 


Calculate low bank 






85508 










05518 




SEC 






05528 




SBC aSECLOU 






05530 




JSR MULT 

1 rvA yi /\iinjkLii^ 


C3 ^HSSSh 


05540 




LDA /LOHBANK 


_•■ ^T^Ui 


05550 




BNE .1 


C/» L— A__i 


05560 






SBT r _ 


05570 
05580 


Calculate high bank 


oo?^ 


05590 





SEC 

SBC aSECMID 

JSR MULT 

LDA /HIGHBANK 


J5J 1 — — 


05600 


Si ^ i 


05610 
05620 


§<H 


05630 






^1 1 


05648 


ftdd all up 8 return 






05658 










05668 


1 


CLC 






05670 




ADC ZPftGE+1 






05680 




TftY 






05690 




LDX ZPftGE 






05700 




RTS 






85710 
85720 


















05738 
05748 




MULTIPLY $80 














05758 










05768 


Multi 


>ly ftccu with $80. 






05770 


Result in CZPftGE) . 






05780 










05790 


iULT 


STA ZPftGE 






05800 




LDA ao 






05810 




STA ZPAGEtl 






05820 




LDX a7 






05830 





ASL ZPftGE 






0S840 




ROL ZPftGE+1 






05350 




DEX 






05360 




BNE .8 






05370 




RTS 






05880 










05890 










05980 




END OF EXECUTE 






05910 










05920 










05938 


iXEND 








05948 




innrvvvwxwwxXM 






85958 Kmm ■»»»"". L.^^,.^^ 

05960 » END OF MDRIUE 2.5 » 






05970 ^ 
05980 




e\ 







continued from page 11 

LISTING 1: M/L EDITOR DATA 



1000 BftTfl 255,255,214,63,136,88,95,25, 

79,132,26,79,132,215,63,48,4451 

1010 DATA 48,48,144,144,144,223,63,0,0 

,6,0,1,5,32,40,99,7430 

1020 DATA 41,49,57,56,51,32,65,99,116, 

105,111,110,32,67,111,109,2646 

1030 DATA 112,117,116,101,114,32,83,10 

1,114,118,105,99,101,115,162,255,8261 

1040 DATA 134,166,160,12,208,10,132,16 

6,160,11,208,4,132,166,160,5,5792 

1050 DATA 134,165,162,0,134,163,10,10, 

10,10,170,152,157,66,3,165,3332 

1060 DATA 163,240,10,157,74,3,165,164, 

157,75,3,169,0,168,157,73,5315 

1070 DATA 3,177,165,157,72,3,240,18,24 

,165,165,105,1,157,68,3,2972 

1080 DATA 165,166,105,0,157,69,3,76,86 

,228,96,134,165,132,166,160,8481 

1090 DATA 3,76,38,64,134,165,132,166,1 

62,0,134,163,160,9,32,38,3709 

1100 DATA 64,208,10,169,11,157,66,3,16 

9,155,76,86,228,96,133,76,6227 

1110 DATA 130,64,141,126,64,108,10,0,1 

9,17,1,131,186,142,193,4,2622 

1120 DATA 160,128,152,76,127,64,164,13 

2,240,10,134,133,10,38,133,136,5682 

1130 DATA 208,250,166,133,96,164,132,2 

40,10,134,133,70,133,106,136,208,9490 

1140 DATA 250,166,133,96,164,211,16,16 

,133,134,134,135,56,169,0,229,7220 

1150 DATA 134,168,169,0,229,135,170,15 

2,96,134,211,224,0,16,3,32,4482 

1160 DATA 184,64,133,130,134,131,165,1 

33,16,14,170,69,211,133,211,165,9458 

1170 DATA 132,32,184,64,133,132,134,13 

3,169,0,133,135,96,240,27,202,8482 

1180 DATA 134,199,170,240,21,134,193,1 

69,0,162,8,10,6,198,144,2,3699 

1190 DATA 101,199,202,208,246,24,101,1 

35,133,135,165,134,166,135,96,32,8258 

1200 DATA 201,64,166,130,240,27,134,19 

8,166,132,240,21,202,134,199,162,2216 

1210 DATA 8,10,38,135,6,198,144,6,101, 

199,144,2,230,135,202,208,9911 

1220 DATA 240,133,134,165,130,166,133, 

32,237,64,165,131,166,132,32,237,59 

1230 DATA 64,76,180,64,32,201,64,165,1 

33,240,39,162,8,38,130,38,4540 

1240 DATA 131,38,135,56,165,131,229,13 

2,168,165,135,229,133,144,4,133,9674 

1250 DATA 1X5,132,131,202,208,231,165, 

130,42,162,6,164,131,132,134,76,8214 

1260 DATA 180,64,162,16,38,130,38,131, 

42,176,4,197,132,144,3,229,6389 

1270 DATA 132,56,202,208,239,38,130,38 

,131,133,134,165,130,166,131,76,874 7 

1280 DATA 180,64,32,68,65,165,134,166, 

135,96,133,160,134,161,132,162,9663 

1290 DATA 24,104,133,132,105,3,168,104 

,133,133,105,0,72,152,72,160,5386 

1300 DATA 1,177,132,133,130,200,177,13 

2,133,131,200,177,132,168,185,160,2962 

1310 DATA 0,145,130,136,16,248,165,17, 

208,15,230,17,76,140,64,8,4185 

1320 DATA 99,9,17,25,24,19,33,35,51,96 

,16,22,192,136,240,8,2320 

1330 DATA 152,192,128,240,18,76,127,64 

,138,74,74,74,74,170,152,157,6975 

1340 DATA 192,5,96,162,1,134,17,72,32, 

140,64,104,168,96,72,134,4374 

1350 DATA 161,132,162,168,169,0,153,19 

2,5,168,177,161,141,0,5,168,6585 

1360 DATA 200,169,155,208,2,177,161,15 




3,0,5,136,208,248,104,162,0,7770 

1370 DATA 160,5,32,91,64,76,218,65,134 

,161,170,164,161,165,183,32,9136 

1380 DATA 100,64,76,218,65,32,14,64,76 

,218,65,134,161,170,164,161,8531 

1390 DATA 165,183,32,22,64,76,218,65,3 

2,28,64,132,160,189,72,3,3637 

1400 DATA 240,3,56,233,1,160,0,145,165 

,164,160,96,134,162,170,164,92 

1410 DATA 162,165,183,72,169,255,133,1 

63,104,72,134,161,132,162,160,0,8795 

1420 DATA 165,163,145,161,104,164,162, 

32,72,66,76,218,65,162,7,134,6006 

1430 DATA 163,10,10,10,10,170,165,163, 

157,66,3,169,0,157,72,3,2672 

1440 DATA 157,73,3,152,32,86,228,133,1 

60,76,218,65,169,155,170,165,631 

1450 DATA 183,134,161,164,161,162,11,7 

6,127,66,160,155,208,247,32,38,8175 

1460 DATA 64,76,218,65,133,212,134,213 

,32,170,217,32,230,216,160,255,4422 

1470 DATA 162,0,200,232,177,243,157,80 

,5,16,247,73,128,157,80,5,6182 

1480 DATA 142,80,5,96,162,0,32,180,66, 

165,183,162,80,160,5,32,4723 

1490 DATA 22,64,76,218,65,162,0,32,214 

,66,76,156,66,160,0,133,4813 

1500 DATA 160,138,132,162,166,162,32,1 

80,66,165,160,76,219,66,160,0,7533 

1510 DATA 32,239,66,165,160,76,170,66, 

134,162,170,164,162,165,183,192,2749 

1520 DATA 0,16,22,72,134,161,132,162,1 

60,45,32,165,66,56,169,0,4161 

1530 DATA 229,161,170,169,0,229,162,16 

8,104,76,239,66,32,8,67,76,4985 

1540 DATA 156,66,32,15,67,165,160,76,1 

70,66,134,162,132,163,162,0,7073 

1550 DATA 164,162,132,162,32,180,66,20 

0,185,80,5,145,162,136,16,248,8862 

1560 DATA 96,224,0,16,237,133,160,134, 

161,132,162,56,169,0,229,160,9758 

1570 DATA 168,169,0,229,161,170,152,32 

,180,66,232,138,168,185,79,5,8664 

1580 DATA 145,162,136,208,248,138,145, 

162,200,169,45,145,162,96,165,183,2246 

1590 DATA 162,19,142,80,5,162,80,150,5 

,32,119,66,169,80,162,5,3666 

1600 DATA 133,164,134,165,160,0,132,16 

0,132,161,132,162,177,164,133,163,1521 

1610 DATft 230,163,169,32,200,209,164,2 

08,5,200,196,163,48,247,177,164,3385 

1620 DATA 201,45,208,3,133,162,200,196 

,163,16,54,177,164,201,48,48,7931 

1630 DATA 48,281,58,16,44,56,233,48,17 

0,165,161,72,165,160,10,38,5847 

1640 DATA 161,10,38,161,24,101,160,133 

,160,104,101,161,133,161,6,160,7645 

1650 DATA 38,161,24,138,101,160,133,16 

0,144,2,230,161,200,196,163,48,645 

1660 DATA 202,165,162,240,13,56,169,0, 

229,160,133,160,169,0,229,161,474 

1670 DATA 133,161,96,133,164,134,165,1 

69,4,133,166,169,36,32,158,66,6638 

1680 DATA 169,0,162,4,6,164,38,165,42, 

202,208,248,105,48,201,58,8593 

1690 DATA 48,2,105,6,32,158,66,198,166 

,208,229,96,133,192,134,193,1995 

1700 DATA 140,240,5,160,0,177,192,133, 

194,230,194,162,13,181,162,157,2214 

1710 DATA 240,5,202,208,248,134,139,13 

4,138,230,138,164,138,196,194,176,4779 

1720 DATA 218,177,192,201,37,208,15,23 

0,138,200,177,192,201,37,240,6,1370 

1730 DATA 201,69,208,8,169,155,32,158, 

66,76,73,68,164,139,230,139,8713 

1740 DATA 230,139,133,160,185,240,5,19 

0,241,5,164,160,192,67,240,230,3864 

1750 DATA 192,83,208,6,32,59,66,76,73, 
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68,192,73,208^6,32,8,2861 

1760 DftTft 67,76,73,68,192,72,208,6, .12, 

3,68,76,73,68,32,214,3149 

1770 DATA 66,76,73,68,134,161,132,162, 

10,19,10,10,170,163,38,157,4413 

1780 DftTfl 66,3,32,86,228,32,218,65,160 

,0,189,78,3,145,163,189,7663 

1790 DftTft 76,3,145,161,189,77,3,200,14 

5,161,95,134,161,10,10,10,4101 

1800 DflTfl 10,170,152,157,77,3,165,161, 

157,76,3,165,163,157,78,3,5801 

1810 DATA 169,37,157,66,3,32,86,228,76 

,218,65,2,83,58,235,68,5528 

1820 DATft 2,69,58,240,63,72,169,0,32,5 

3,66,169,12,133,163,169,5788 

1830 DATfi 0,174,243,68,172,244,68,32,2 

54,65,169,6,32,53,66,104,4914 

1840 DC\T(* 133,164,41,48,73,28,133,163, 

169,6,174,238,68,172,239,68,9700 

1850 DATA 75,254,65,133,91,134,92,132, 

90,133,85,134,86,132,84,96,6565 

I860 DATA 32,41,69,173,253,2,141,251,2 

,173,238,58,133,155,173,239,2785 

1870 DATA 68,133,165,169,0,133,163,133 

,164,169,5,96,32,48,59,150,5448 

1880 DATA 17,76,174,66,32,35,69,159,5, 

75,125,65,32,41,59,159,2750 

1890 DATA 6,174,253,2,75,151,66,201,5, 

16,22,133,150,152,41,15,3533 

1900 DATA 133,152,138,10,10,10,10,5,16 

2,166,160,157,195,2,157,22,5076 

1910 DATA 208,96,32,48,59,150,18,76,17 

4,66,174,10,210,201,0,240,8281 

1920 DATA 9,134,132,162,0,134,133,32,1 

5,55,134,160,96,10,132,162,5371 

1930 DATA 168,201,7,48,5,160,100,32,12 

7,64,138,153,0,210,155,162,7798 

1940 DATA 10,10,10,10,5,163,153,1,210, 

96,173,50,2,41,239,141,5916 

1950 DATA 50,2,141,15,210,169,0,162,8, 

157,0,210,202,16,250,96,8145 

1960 DATA 170,189,112,2,133,160,95,152 

,0,201,4,48,3,232,41,3,3025 

1970 DATA 168,189,0,211,57,234,69,133, 

160,95,4,8,64,128,162,0,4190 

1980 DATA 201,2,48,3,232,41,1,158,189, 

0,211,136,208,4,74,74,5806 

1990 DATA 74,74,41,15,133,160,96,170,1 

89,16,208,133,160,96,133,162,9808 

2000 DATA 134,163,160,0,177,162,133,15 

0,200,177,152,133,161,96,133,160,1948 

2010 DATA 134,161,152,160,0,145,160,95 

,32,30,70,200,165,163,145,150,9240 

2020 DATA 96,72,169,0,133,154,104,133, 

160,134,161,132,162,160,0,165,9329 

2030 DATA 154,156,153,240,15,145,150,2 

00,208,251,230,151,198,153,208,245,838 

5 

2040 DATA 240,3,145,160,200,196,162,20 

8,249,96,133,160,134,161,132,152,3487 

2050 DATA 160,0,165,165,240,22,177,152 

,145,160,200,208,249,230,151,230,7385 

2060 DATA 163,198,165,208,241,240,5,17 

7,162,145,160,200,196,164,208,247,7026 

2070 DATA 96,133,164,134,165,132,162,1 

60,0,132,160,132,161,177,164,209,2530 

2080 DATA 162,240,3,32,169,70,201,0,20 

8,1,96,133,166,200,177,164,302 

2090 DATA 209,162,208,5,196,156,144,24 

5,96,162,255,134,160,144,3,177,2081 

2100 DATA 162,232,134,161,96,133,160,1 

34,161,132,162,160,0,177,162,145,941 

2110 DATA 160,240,8,168,177,162,145,16 

0,136,208,249,96,133,160,134,161,3348 

2120 DATA 132,162,160,0,177,162,197,15 

5,176,2,133,165,198,154,24,165,529 

2130 DATA 162,101,164,133,152,144,2,23 

0,153,56,155,155,229,164,176,2,813 
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2140 DATA 169,0,75,191,70,133,160,134, 

161,132,162,160,0,177,162,240,1860 

2150 DATA 13,133,166,198,164,56,165,16 

5,229,164,240,2,176,1,95,170,177 

2160 DATA 197,166,144,8,24,165,165,170 

,101,164,133,155,155,155,209,160,2927 

2170 DATA 144,3,145,160,24,155,150,101 

,154,133,160,144,2,230,161,138,596 

2180 DATA 76,195,70,110,83,92,83,2,3,3 

,1,1,1,0,0,128,7001 

2190 DATA 1,1,1,2,2,0,0,55,71,2,2,3,2, 

1,1,0,3426 

2200 DATA 0,128,128,128,128,2,3,128,12 

8,73,71,80,0,58,128,15,1544 

2210 DATA 76,99,71,32,154,55,51,71,3,1 

69,0,141,92,71,173,52,3936 

2220 DATA 2,141,91,71,173,91,71,41,255 

,141,91,71,173,92,71,41,6113 

2230 DATA 8,141,92,71,173,53,2,141,93, 

71,165,87,141,95,71,169,6735 

2240 DATA 40,205,91,71,169,0,237,92,71 

,176,3,76,200,71,24,173,6553 

2250 DATA 91,71,105,227,141,91,71,173, 

92,71,105,0,141,92,71,169,6421 

2260 DATA 255,205,91,71,169,0,237,92,7 

1,144,3,76,200,71,150,0,5740 

2270 DATA 140,92,71,169,255,141,91,71, 

169,90,205,91,71,169,0,237,9658 

2280 DATA 92,71,175,3,76,225,71,150,0, 

140,92,71,159,90,141,91,6853 

2290 DATA 71,55,173,91,71,233,90,141,9 

1,71,173,92,71,233,0,141,7844 

2300 DATA 92,71,169,159,205,91,71,159, 

0,237,92,71,144,3,76,11,4551 

2310 DATA 72,160,0,140,92,71,169,159,1 

41,91,71,24,173,71,71,109,5903 

2320 DATA 95,71,133,174,173,72,71,105, 

0,133,175,150,0,177,174,141,8805 

2330 DATA 94,71,173,94,71,73,128,240,3 

,76,53,72,14,91,71,45,2551 

2340 DATA 92,71,76,75,72,173,94,71,133 

,132,173,92,71,170,173,91,8584 

2350 DATA 71,32,165,64,141,91,71,138,1 

41,92,71,56,173,93,71,233,8074 

2360 DATA 17,141,93,71,169,127,205,93, 

71,144,3,76,99,72,150,0,4727 

2370 DATA 140,93,71,169,95,205,93,71,1 

44,3,76,114,72,169,95,141,7022 

2380 DATA 93,71,24,173,89,71,109,95,71 

,133,174,173,90,71,105,0,5471 

2390 DATA 133,175,160,0,177,174,141,94 

,71,173,94,71,73,128,240,3,7665 

2400 DATA 75,153,72,14,93,71,76,169,72 

,173,94,71,133,132,173,93,7753 

2410 DATA 71,162,0,32,165,64,141,93,71 

,173,51,71,133,174,173,52,7247 

2420 DATA 71,133,175,173,92,71,160,1,1 

45,174,173,91,71,136,145,174,9814 

2430 DATA 173,53,71,133,174,173,54,71, 

133,175,173,93,71,145,174,95,9373 

2440 DATA 76, 211, 72, 150, O, 132, 20, 132, 1 

9,96,53,12,76,223,72,169,5534 

2450 DATA 1,133,133,169,0,133,132,165, 

19,162,0,32,15,65,133,174,4893 

2460 DATA 138,133,175,24,165,174,101,2 

0,141,218,72,165,175,105,0,141,8443 

2470 DATA 219,72,173,219,72,133,161,17 

3,218,72,133,160,95,80,0,58,7258 

2480 DATA 0, 101, 0, 76, 22, 73, 32, 154 ,, 65, 1 

3,73,2,160,0,132,77,1824 

2490 DATA 173,13,73,201,1,173,14,73,23 

3,0,144,3,75,54,73,140,4233 

2500 DATA 14,73,200,140,13,73,169,158, 

205,13,73,169,0,237,14,73,5272 

2510 DATA 144,3,76,79,73,150,0,148,14, 

73,159,158,141,13,73,173,5138 

2520 DATA 15,73,201,1,144,3,75,94,73,1 

50,1,140,15,73,169,190,5050 



SEPTEMBER A.N.A.L.O.O. Computing 



2530 DATA 205,15,73,144,3,76,189,73,16 

9,190,141,15,73,56,173,13,5066 

2540 DATA 73,233,1,133,160,173,14,73,2 

33,0,133,161,172,15,73,166,7823 

2550 DftTA 161,165,160,32,92,69,24,173, 

13,73,105,1,133,160,173,14,4877 

2560 DATA 73,105,8,133,161,172,15,73,1 

66,161,165,160,32,92,69,56,6375 

2570 DATA 173,15,73,233,1,133,162,164, 

162,174,14,73,173,13,73,32,5439 

2580 DATA 92,69,24,173,15,73,105,1,133 

,162,164,162,174,14,73,173,7716 

2590 DATA 13,73,32,92,69,169,16,141,16 

,73,169,15,133,163,160,8,5264 

2600 DATA 162,100,169,8,32,157,69,168, 

0,140,18,73,140,17,73,169,4665 

2610 DATA 208,205,17,73,169,8,237,18,7 

3,176,3,76,249,73,238,17,7674 

2620 DATA 73,208,236,238,18,73,76,223, 

73,173,16,73,208,3,76,61,5914 

2630 DATA 74,56,173,16,73,233,1,141,16 

,73,173,16,73,133,163,160,7082 

2640 DATA 8,162,140,169,0,32,157,59,16 

0,8,140,18,73,140,17,73,3439 

2650 DATA 169,100,205,17,73,169,0,237, 

18,73,176,3,76,58,74,238,6559 

2660 DATA 17,73,208,236,238,18,73,76,3 

2,74,76,249,73,169,0,133,7193 

2670 DATA 163,160,0,162,0,169,8,32,157 

,69,96,236,255,23,10,76,6065 

2680 DATA 82,74,142,76,74,141,75,74,16 

0,1,148,77,74,136,140,78,6101 

2690 DATA 74,169,0,285,75,74,169,0,237 

,76,74,48,3,76,168,74,4894 

2788 DATA 56,173,75,74,237,77,74,141,7 

5,74,173,76,74,233,8,141,7626 

2710 DATA 76,74,24,173,77,74,185,2,141 

,77,74,173,75,74,201,0,5233 

2720 DATA 173,76,74,233,0,16,3,76,157, 

74,238,78,74,76,97,74,5296 

2730 DATA 173,78,74,133,160,96,1,79,0, 

48,76,173,74,141,166,74,5830 

2740 DATA 168,8,132,77,24,173,221,63,1 

89,166,74,133,174,173,222,63,886 

2750 DATA 105,0,133,175,169,8,141,168, 

74,177,174,141,167,74,24,173,9507 

2760 DATA 229,63,109,166,74,133,174,17 

3,230,63,105,0,133,175,177,174,1349 

2770 DATA 141,169,74,56,173,167,74,233 

,26,133,160,173,168,74,233,0,59 

2780 DATA 133,161,56,173,169,74,233,26 

,133,162,164,162,166,161,165,160,3235 

2790 DATA 32,92,69,24,173,167,74,105,2 

6,133,160,173,168,74,185,8,6729 

2800 DATA 133,161,56,173,169,74,233,26 

,133,162,164,162,166,161,165,168,3255 

2810 DATA 32,76,69,24,173,167,74,105,2 

6,133,160,173,168,74,105,0,6717 

2820 DATA 133,161,24,173,169,74,185,26 

,133,162,164,162,166,161,165,168,2283 

2838 DATA 32,76,69,56,173,167,74,233,2 

6,133,160,173,168,74,233,0,9809 

2840 DATA 133,161,24,173,169,74,185,26 

,133,162,164,162,166,161,165,168,2303 

2850 DATA 32,76,69,56,173,167,74,233,2 

6,133,160,173,168,74,233,8,9829 

2868 DATA 133,161,56,173,169,74,233,26 

,133,162,164,162,166,161,165,160,3315 

2870 DATA 32,76,69,173,253,2,208,3,76, 

221,75,160,0,140,169,74,8028 

2880 DATA 169,15,205,169,74,176,3,76,2 

08,75,173,169,74,133,163,160,807 

2890 DATA 10,162,60,169,0,32,157,69,16 

0,0,140,168,74,140,167,74,7530 

2900 DATA 169,200,205,167,74,169,0,237 

,168,74,176,3,76,202,75,238,1005 

2910 DATA 167,74,208,236,238,168,74,76 

,176,75,238,169,74,76,144,75,4 83 

2920 DATA 169,0,133,163,160,0,162,8,16 
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9,8,32,157,69,96,10,0,2222 

2930 DATA 76,227,75,142,223,75,141,222 

,75,173,222,75,201,0,173,223,3104 

2940 DATA 75,233,0,48,3,76,8,76,56,169 

,0,237,222,75,133,160,8337 

2950 DATA 169,0,237,223,75,133,161,96, 

173,223,75,133,161,173,222,75,3043 

2960 DATA 133,160,96,6,30,17,0,18,0,24 

4,255,244,255,23,0,18,6219 

2970 DATA 0,17,76,37,76,160,0,132,77,2 

00,140,253,2,169,5,141,7768 

2980 DATA 20,76,169,25,205,20,76,176,3 

,76,103,79,169,0,141,22,4376 

2990 DATA 76,173,28,76,141,21,76,160,0 

,140,24,76,140,23,76,140,4517 

3000 DATA 26,76,140,25,76,173,21,76,20 

5,23,76,173,22,76,237,24,6147 

3010 DATA 76,16,3,76,91,79,24,173,25,7 

6,109,23,76,133,174,173,6600 

3028 DATA 26,76,189,24,76,133,175,24,1 

65,174,109,23,76,133,172,165,8986 

3030 DATA 175,109,24,76,133,173,24,165 

,172,105,1,141,29,76,165,173,7975 

3040 DATA 105,0,141,30,76,56,173,23,76 

,237,21,76,133,174,173,38,7284 

3050 DATA 76,237,22,76,133,175,56,165, 

174,237,21,76,133,172,165,175,1888 

3060 DATA 237,22,76,133,173,24,165,172 

,105,1,141,27,76,165,173,105,8044 

3070 DATA 0,141,28,76,173,22,76,141,32 

,76,173,21,76,141,31,76,4243 

3080 DATA 173,23,76,141,33,76,160,0,14 

0,19,76,169,5,205,19,76,4582 

3090 DATA 176,3,76,239,78,24,173,221,6 

3,109,19,76,133,174,173,222,1059 

3100 DATA 63,105,0,133,175,24,160,0,17 

7,174,109,31,76,133,160,169,8902 

3110 DATA 0,109,32,76,133,161,24,173,2 

29,63,109,19,76,133,174,173,9257 

3120 DATA 238,63,105,0,133,175,24,177, 

174,109,33,76,133,162,164,162,78 

3130 DATA 166,161,165,160,32,92,69,24, 

173, 221, 63, 109, 19, 76, 133, 174, 7998 

3140 DATA 173,222,63,105,0,133,175,24, 

160,0,177,174,109,33,76,133,7203 

3150 DATA 160,169,0,133,161,24,173,229 

,63,109,19,76,133,174,173,230,1390 

3160 DATA 63,105iiO,133,175,24,177,174, 

189,31,76,133,162,164,162,166,825 

3170 DATA 161,165,160,32,92,69,24,173, 

221,63,109,19,76,133,174,173,8969 

3180 DATA 222,63,105,0,133,175,24,160, 

0,177,174,109,33,76,133,160,8046 

3190 DATA 169,0,133,161,24,173,229,63, 

109,19,76,133,174,173,230,63,412 

3200 DATA 105,0,133,175,56,177,174,237 

,31,76,133,162,164,162,166,161,2772 

3210 DATA 165,160,32,92,69,24,173,221, 

63,109,19,76,133,174,173,222,717 

3220 DATA 63,105,0,133,175,24,160,0,17 

7,174,109,31,76,133,160,169,9022 

3230 DATA 0,109,32,76,133,161,24,173,2 

29,63,109,19,76,133,174,173,9377 

3240 DATA 230,63,105,0,133,175,56,177, 

174,237,33,76,133,162,164,162,1694 

3250 DATA 166,161,165,160,32,92,69,24, 

173,221,63,109,19,76,133,174,8118 

3260 DATA 173,222,63,105,0,133,175,56, 

160,0,177,174,237,31,76,133,9215 

3270 DATA 160,169,0,237,32,76,133,161, 

24,173,229,63,109,19,76,133,7723 

3280 DATA 174,173,230,63,105,8,133,175 

,56,177,174,237,33,76,133,162,718 

3298 DATA 164,162,166,161,165,168,32,9 

2,69,24,173,221,63,109,19,76,6927 

3300 DATA 133,174,173,222,63,105,0,133 

,175,56,160,0,177,174,237,33,9912 

3310 DATA 76,133,160,169,0,133,161,24, 

173,229,63,109,19,76,133,174,8863 
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3328 DATA 173, 230^ 63, 185, 9, .133, 175, 56, 

177,174,237,31,76,133,162,164, 1249 

3330 DATA 162,166,161,165,166,32,92,69 

,24,173,221,63,109,19,76,133,7239 

3340 DATA 174,173,222,63,185,0,133,175 

,56,160,8,177,174,237,33,76,9153 

3350 DATA 133,160,169,8,133,161,24,173 

,229,63,189,19,76,133,174,173,9839 

3360 DATA 230,63,185,8,133,175,24,177, 

174,189,31,76,133,162,164,162,288 

3378 DATA 166,161,165,168,32,92,69,24, 

173,221,63,109,19,76,133,174,8238 

3380 DATA 173,222,63,105,0,133,175,56, 

160,0,177,174,237,31,76,133,9335 

3390 DATA 168,169,8,237,32,76,133,161, 

24,173,229,63,189,19,76,133,7843 

3488 DATA 174,173,238,63,185,8,133,175 

,24,177,174,189,33,76,133,162,9006 

3418 DATA 164,162,166,161,165,160,32,9 

2,69,238,19,76,76,219,76,173,9869 

3420 DATA 30,76,141,26,76,173,29,76,14 

1,25,76,238,23,76,208,3,6100 

3430 DATA 238,24,76,174,28,76,173,27,7 

6,32,224,75,24,165,160,105,7733 

3440 DATA 0,133,174,165,161,105,0,133, 

175,165,175,72,165,174,72,174,1846 

3450 DATA 30,76,173,29,76,32,224,75,10 

4,133,174,104,133,175,165,174,1873 

3460 DATA 197,160,165,175,229,161,48,3 

,76,88,79,173,28,76,141,26,6111 

3470 DATA 76,173,27,76,141,25,76,56,17 

3,21,76,233,1,141,21,76,5029 

3480 DATA 173,22,76,233,0,141,22,76,76 

,85,76,24,173,20,76,105,4472 

3490 DATA 5,141,20,76,76,50,76,96,80,0 

,58,0,1,101,0,100,506 

3500 DATA 0,10,0,76,118,79,32,154,65,1 

04,79,4,24,173,221,63,5943 

3510 DATA 109,108,79,133,174,173,222,6 

3,105,0,133,175,169,8,141,114,9214 

3528 DATA 79,160,0,177,174,141,113,79, 

173,105,79,141,110,79,173,104,9729 

3530 DATA 79,141,109,79,56,173,109,79, 

237,113,79,141,109,79,173,110,9949 

3540 DATA 79,237,114,79,141,110,79,174 

, 110, 79 , 173, 109, 79, 32, 224, 75, 9087 

3550 DATA 165,161,141,118,79,165,168,1 

41,189,79,24,173,229,63,189,188,9866 

3568 DATA 79,133,174,173,238,63,105,0, 

133,175,169,8,141,114,79,160,9362 

3570 DATA 0,177,174,141,113,79,173,107 

,79,141,112,79,173,106,79,141,9591 

3580 DATA 111,79,56,173,111,79,237,113 

,79,141,111,79,173,112,79,237,1385 

3590 DATA 114,79,141,112,79,174,112,79 

,173,111,79,32,224,75,165,161,521 

3600 DATA 141,112,79,165,160,141,111,7 

9,173,110,79,133,133,173,109,79,89 

3610 DATA 133,132,173,110,79,170,173,1 

09,79,32,15,65,141,109,79,138,7192 

3620 DATA 141,110,79,173,112,79,133,13 

3,173,111,79,133,132,173,112,79,153 

3630 DATA 170,173,111,79,32,15,65,141, 

111,79,138,141,112,79,24,173,7317 

3640 DATA 109,79,109,111,79,141,109,79 

,173,110,79,109,112,79,141,110,8585 

3658 DATA 79,173,109,79,201,113,173,11 

0,79,233,2,48,3,76,134,80,6524 

3660 DATA 174,110,79,173,109,79,32,79, 

74,169,0,141,114,79,165,160,8529 

3670 DATA 141,113,79,75,144,80,160,0,1 

40,114,79,169,26,141,113,79,7466 

3680 DATA 173,114,79,133,161,173,113,7 

9,133,160,96,76,158,88,169,8,8598 

3690 DATA 32,245,68,168,4,162,2,169,19 

8,32,30,70,76,201,80,25,6088 

3700 DATA 83,104,97,114,112,32,83,104, 

111,111,116,101,114,44,32,98,5646 

3710 DATA 121,32,77,97,116,42,82,97,11 




6,162,80,169,175,32,40,66,6647 
][D®1J[§[F ^^^^ ^^^^ 76,238,80,26,40,99,41,32,49, 
57, 56, 57, 44, 32, 65, 110, 2019 
3730 DATA 97,108,111,103,32,67,111,109 
,112,117,116,105,110,103,162,80,8295 
3740 DATA 169,211,32,40,66,76,249,80,8 
,162,80,169,248,32,40,66,7612 
3750 DATA 76,37,81,33,67,111,110,110,1 
01,99,116,32,76,105,103,104,6152 
3760 DATA 116,32,71,117,110,32,102,185 
,114,115,116,32,183,97,189,181,6781 
3770 DATA 32,112,111,114,116,162,81,16 
9,3,32,40,66,76,48,81,0,2740 
3780 DATA 162,81,169,47,32,40,66,76,89 
,81,30,80,114,101,115,115,5631 
3790 DATA 32,212,210,201,199,199,197,2 
10,32,102,111,114,32,78,69,88,8776 
3800 DATA 84,32,103,97,109,101,32,111, 
114,162,81,169,58,32,40,66,5331 
3810 DATA 76,133,81,33,116,121,112,101 
,32,32,197,211,195,193,208,197,4241 
3820 DATA 160,32,107,101,121,32,116,11 
1,32,101,120,105,116,32,112,114,6604 
3830 DATA 111,103,114,97,109,162,81,16 
9,99,32,48,66,173,120,2,73,5883 
3840 DATA 15,240,18,173,252,2,73,28,24 
0,3,76,140,81,173,120,2,7077 
3858 DATA 73,14,248,10,173,252,2,73,28 
,240,3,76,157,81,96,0,5898 
3860 DATA 1,0,76,181,81,160,0,140,175, 
81,169,5,205,175,81,176,748 
3870 DATA 3,76,211,81,173,175,81,174,1 
75,81,157,231,63,238,175,81,3812 
3880 DATA 76,186,81,160,0,140,175,81,1 
69,5,205,175,81,176,3,76,8628 
3890 DATA 27,82,169,6,32,138,69,165,16 
0,141,177,81,173,177,81,77,346 
3900 DATA 175,81,208,3,76,226,81,174,1 
75,81,189,231,63,141,176,81,2533 
3910 DATA 174,177,81,189,231,63,174,17 
5,81,157,231,63,173,176,81,174,3896 
3920 DATA 177,81,157,231,63,238,175,81 
,76,216,81,96,4,0,76,33,5877 
3930 DATA 82,160,0,140,28,82,169,15,20 
5,28,82,176,3,76,164,82,6841 
3940 DATA 56,169,15,237,28,82,133,153, 
160,10,162,60,169,0,32,157,7425 
3950 DATA 69,56,169,15,237,28,82,133,1 
63,160,10,162,64,169,1,32,6535 
3960 DATA 157,69,160,0,140,29,82,169,2 
50,205,29,82,176,3,76,103,8256 
3970 DATA 82,238,29,82,76,87,82,56,169 
,15,237,28,82,133,163,160,9414 
3980 DATA 10,162,80,169,0,32,157,59,56 
,169,15,237,28,82,133,163,8391 
3990 DATA 160,10,162,84,159,8,32,157,6 
9,168,8,148,29,82,169,250,9278 
4000 DATA 205,29,82,176,3,76,158,82,23 
8,29,82,76,142,82,238,28,8704 
4010 DATA 82,76,38,82,169,0,133,163,16 
0,0,162,0,169,0,32,157,6177 
4020 DATA 69,169,0,133,163,160,0,162,0 
,169,1,32,157,69,96,16,4818 
4030 DATA 251,76,196,82,160,0,140,191, 
82,169,15,205,191,82,176,3,29 
4040 DATA 76,65,83,56,169,15,237,191,8 
2,133,163,160,8,162,240,169,3298 
4050 DATA 0,32,157,69,173,191,82,133,1 
63,160,6,162,245,169,1,32,9665 
4060 DATA 157,69,160,0,140,192,82,169, 
250,205,192,82,176,3,76,7,9591 
4070 DATA 83,238,192,82,76,247,82,56,1 
69,15,237,191,82,133,163,160,2920 
4080 DATA 8,162,180,169,0,32,157,69,17 
3,191,82,133,163,160,12,162,567 
4090 DATA 194,169,0,32,157,69,160,0,14 
0,192,82,169,250,205,192,82,3491 
4100 DATA 176,3,76,59,83,238,192,82,76 
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,43,83,238,191,82,76,281,1459 

4119 DftTft 82,169,0,133,163,160,0,162,0 
,169,0,32,157,69,169,0,5749 

4120 DATA 133,163,160,0,162,0,169,1,32 
,157,69,96,58,11,0,6,1833 

4130 DATA 10,0,12,124,3,57,0,3,0,29,4, 

6,0,33,20,0,6221 

4140 DATA 76,115,83,160,0,140,108,83,2 

00,140,107,83,136,140,109,83,9659 

4150 DATA 140,106,83,140,105,83,32,155 

,80,169,31,32,245,68,169,12,7797 

4160 DATA 141,200,2,160,0,140,98,83,14 

0,100,83,140,99,83,140,102,8571 

4170 DATA 83,140,101,83,140,104,83,140 

,103,83,32,34,76,32,208,72,6418 

4180 DATA 32,178,81,160,0,140,94,83,14 

0,95,83,169,5,205,95,83,8452 

4190 DATA 176,3,76,70,85,169,3,141,253 

,2,160,1,140,93,83,169,8608 

4200 DATA 10,205,93,83,176,3,76,64,85, 

174,94,83,189,231,63,133,472 

4210 DATA 160,165,160,32,170,74,169,83 

,133,163,160,92,162,83,169,110,1703 

4220 DATA 32,96,71,173,120,2,73,15,240 

,10,173,252,2,73,28,240,9087 

4230 DATA 3,76,230,83,173,252,2,73,28, 

240,3,76,98,84,169,255,1044 

4240 DATA 141,252,2,169,0,32,245,68,76 

,53,84,25,83,104,97,114,6270 

4250 DATA 112,32,83,104,111,111,116,19 

1,114,44,32,98,121,32,77,97,5654 

4260 DATA 116,42,82,97,116,162,84,169, 

27,32,40,66,76,90,84,26,4305 

4270 DATA 40,99,41,32,49,57,56,57,44,3 

2,65,110,97,108,111,103,5031 

4280 DATA 32,67,111,109,112,117,116,10 

5,110,103,162,84,169,63,32,40,7138 

4290 DATA 65,96,238,253,2,169,3,205,25 

3,2,144,3,76,116,84,160,9308 

4300 DATA 1,140,253,2,172,92,83,174,11 

1,83,173,110,83,32,19,73,6765 

4310 DATA 169,0,133,163,174,94,83,189, 

231,63,133,164,172,92,83,174,2750 

4320 DATA 111,83,173,110,83,32,115,79, 

165,161,141,97,83,165,160,141,1455 

4330 DATA 96,83,169,5,205,96,83,169,0, 

237,97,83,16,3,76,183,7404 

4340 DATA 84,238,98,83,32,30,82,169,25 

,205,96,83,169,0,237,97,9423 

4350 DATA 83,16,3,76,241,84,238,101,83 

,208,3,238,102,83,56,169,709 

4360 DATA 26,237,96,83,133,174,169,9,2 

37,97,83,133,175,24,173,99,774 

4370 DATA 83,101,174,141,99,83,173,100 

,83,101,175,141,100,83,76,252,1753 

4380 DATA 84,238,103,83,208,3,238,104, 

83,32,193,82,173,120,2,73,8438 

4390 DATA 14,240,3,76,252,84,160,0,140 

,253,2,174,94,83,189,231,2896 

4400 DATA 63,133,160,165,160,32,170,74 

,238,94,83,169,5,205,94,83,339 

4410 DATA 144,3,76,45,85,160,0,140,94, 

83,32,178,81,169,3,32,5613 

4420 DATA 138,69,24,165,160,105,1,141, 

253,2,238,93,83,76,207,83,600 

4430 DATA 238,95,83,76,187,83,32,220,7 

2,165,161,141,111,83,165,160,2229 

4440 DATA 141,110,83,169,0,133,133,169 

,60,133,132,173,111,83,170,173,2128 

4450 DATA 110,83,32,68,65,141,110,83,1 

38,141,111,83,173,110,83,201,818 

4460 DATA 16,173,111,83,233,14,144,3,7 

6,151,85,173,111,83,133,133,9701 

4470 DATA 173,110,83,133,132,169,14,17 

0,169,16,32,68,65,141,110,83,7422 

4480 DATA 138,141,111,83,76,159,85,160 

,0,140,111,83,140,110,83,169,9700 

4490 DATA 255,141,252,2,169,0,32,245,6 




8,160,20,162,2,169,198,32,9070 

4500 DATA 30,70,160,2,162,0,169,2,32,3 

5,69,76,215,85,24,83,5149 

4510 DATA 104,97,114,112,32,83,104,111 

,111,116,101,114,32,66,121,32,6177 

4520 DATA 77,97,116,42,82,97,116,162,8 

5,169,190,32,40,66,76,248,9888 

4530 DATA 85,22,70,105,110,97,108,32,8 

3,99,111,114,101,32,102,111,6826 

4540 DATA 114,32,82,111,117,110,100,32 

,162,85,169,225,32,59,66,174,9492 

4550 DATA 108,83,173,187,83,32,231,66, 

238,107,83,208,3,238,108,83,1463 

4560 DATA 76,35,86,15,66,117,108,108,1 

01,116,115,47,77,105,110,32,6207 

4570 DATA 32,61,32,162,86,169,19,32,59 

,66,174,111,83,173,110,83,8217 

4580 DATA 32,231,66,76,70,86,15,84,111 

,116,97,108,32,72,105,116,6596 

4590 DATA 115,32,32,32,61,32,162,86,16 

9,54,32,59,66,174,102,83,6585 

4600 DATA 173,101,83,32,231,66,75,105, 

86,15,84,111,116,97,108,32,6453 

4610 DATA 77,105,115,115,101,115,32,61 

,32,162,86,169,89,32,59,66,6037 

4620 DATA 174,104,83,173,103,83,32,231 

,66,76,140,86,15,55,117,108,7556 

4630 DATA 108,115,181,121,101,115,32,3 

2,32,32,61,32,162,86,169,124,6922 

4640 DATA 32,59,66,173,98,83,32,229,66 

,76,172,86,15,83,99,111,7620 

4650 DATA 114,101,32,32,32,32,32,32,32 

,32,61,32,162,86,169,156,6026 

4650 DATA 32,59,66,174,100,83,173,99,8 

3,32,231,66,173,105,83,205,1349 

4670 DATA 99,83,173,106,83,237,180,83, 

144,3,76,217,85,173,100,83,213 

4680 DATA 141,106,83,173,99,83,141,105 

,83,76,236,86,15,65,99,99,8103 

4690 DATA 117,114,97,99,121,32,32,32,3 

2,32,61,32,152,85,159,220,8027 

4700 DATA 32,59,55,169,0,133,133,173,9 

8,83,133,132,169,100,162,0,9623 

4710 DATA 32,15,65,141,110,83,138,141, 

111,83,169,0,133,133,169,50,9447 

4720 DATA 133,132,173,111,83,170,173,1 

10,83,32,68,65,141,110,83,138,9027 

4730 DATA 141,111,83,173,109,83,205,11 

0,83,169,0,237,111,83,144,3,9486 

4740 DATA 76,57,87,173,110,83,141,109, 

83,174,111,83,173,110,83,32,9040 

4750 DATA 214,66,75,71,87,1,37,162,87, 

169,69,32,40,66,76,82,5116 

4760 DATA 87,0,162,87,169,81,32,40,66, 

76,108,87,15,72,105,103,5568 

4770 DATA 104,32,83,99,111,114,101,32, 

32,32,51,32,162,87,169,92,6779 

4780 DATA 32,59,66,174,106,83,173,105, 

83,32,231,66,76,143,87,15,7838 

4790 DATA 66,101,115,115,32,55,99,99,1 

17,114,97,99,121,61,32,162,7849 

4800 DATA 87,169,127,32,59,65,173,109, 

83,32,212,66,76,161,87,1,7262 

4810 DATA 37,162,87,169,159,32,40,66,7 

6,172,87,0,162,87,169,171,9859 

4820 DATA 32,40,66,76,206,87,23,80,114 

,101,115,115,32,32,212,242,384 

4830 DATA 233,231,231,229,242,150,32,1 

16,111,32,112,108,97,121,162,87,1080 

4840 DATA 169,182,32,40,66,76,240,87,2 

3,79,114,32,116,121,112,101,7924 

4850 DATA 160,197,211,195,193,208,197, 

160,32,116,111,32,101,120,105,115,1166 

4850 DATA 162,87,169,216,32,40,56,173, 

120,2,73,14,240,10,173,252,771 

4870 DATA 2,73,28,240,3,75,247,87,173, 

120,2,73,15,240,10,173,9086 

4880 DATA 252,2,73,28,240,3,75,8,88,17 
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3,120,2,73,14,248,18,6052 

4898 DflTfl 173,252,2,73,28,240,3,76,25, 

88, 173, 252, 2, 73, 28, 240, 9414 

4900 DflTfl 3,76,137,83,169,255,141,252, 

2,169,0,32,245,68,76,91,1 

4910 DATA 88,25,83,104,97,114,112,32,8 

3,104,111,111,116,101,114,44,7598 

4920 DflTfl 32,98,121,32,77,97,116,42,82 

,97,116,162,88,169,65,32,7679 

4930 DflTfl 40,66,76,128,88,26,40,99,41, 

32,49,57,56,57,44,32,2120 

4940 DflTfl 65,110,97,108,111,103,32,67, 

111,109,112,117,116,105,110,103,8882 

4950 DflTfl 162,88,169,101,32,40,66,96,9 

6,226,2,227,2,112,83,0,6538 




LISTING 2: ACTION! 



5HflRP 5H00TER 
by Matthew J.W. Ratcliff 

COPYRIGHT 1989 
BY flHflLOG COMPUTING 



CHECKSUM DflTfl 

[48 OB IE 62 OB 10 18 12 

78 Ifl 5B 6E 9E 58 23 EE 

D8 EB E2 41 52 46 14 71 

OB 3fl 83 IF fl4 53 18 ] 

BYTE RT5=ES603 ; This declaration 

J Must be the first 

; coMpiled code if 

; using this pgn with 

; 05/fl+ versions 2.2 

i and before 

,■ GaHe global target array 

BYTE ARRflY XCS= [26 79 132 26 79 1323 
BYTE flRRflY YC5= [48 48 48 144 144 1443 
BYTE flRRflY Tgsel C6J 

BYTE Jiffy = 20 

BYTE Jiffyl = 19 

BYTE CH = 764 

BYTE TRIGGER^ 632 

BYTE flttract= 77 



INCLUDE "DlGUNREflD.ACT' 



PROC ZeroTiMet) 
CflRD TiMer=19 
Ti«er = 
RETURN 



Get elapsed tiwe in jiffies 
CARD FUNC GetJTiMed 
CflRD tic 

tic = Jiffyl*256 + Jiffy 
RETURNCtiC] 

PROC BlastC CflRD Xb, BYTE yb ) 
BYTE s 



CflRD d 

Attract = 

IF xb < 1 THEN 

Xb = 1 
FI 

IF Xb >158 THEN 

Xb = 158 
FI 

IF yb < 1 THEN 

yb = 1 
FI 

IF yb > 190 THEN 

yb = 198 
FI 

Plot(xb-l, yb) 
Plot(xb+l, yb) 
Plottxb, yb-1) 
PlotCxb, yb+1) 

s = 16 

5ound(8, 188, 8, 15) 

FOR d = 8 TO 280 
DO 

DD 
WHILE S tt 8 
DO 

S = S - 1 

Soundce, 148, 8, S) 
FOR d = 8 TO 180 
D8 

6d 

DD 
SoundCO, 0, 0, 0) 
RETURN 



Return the integer square 
ROOT of the value passed. 

fllgorithw: The integer square 
root is the count of the total 
successive odd nuMbers, starting 
froM 1, that can be subtracted 
froM the paraMeter before it goes 
negative. 

BYTE FUNC ISqrtt INT r ) 

BYTE i, j 

i = 1 

J = 

WHILE tr > 0) 
DO 

r = r - i 
i = i + 2 
IF r >= THEN 
j = J + 1 
FI 
OD 

RETURNC J ] 



PROC 5elTargetC BYTE tg ) 
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CARD X 
BYTE y 

Attract = 

X = XC5CtgJ 
y = YC5Ctg) 

P10tCX-25,y-26) 
DrawTofx+26j y-26) 
DrawTotx+26,y+26J 
DrawTo(x-26,y+26J 
DrawTo tx-26,y-26) 

IF color « THEN 
FOR y = TO 15 
DO 

SoundCO, 60, 10, yJ 
FOR X = TO 200 
DO 

6d 

OD 

SoundCO, 0, 0, 0] 
FI 




RETURN 



INT FUNC ABStINT NUMBER} 
IF {NUMBER < 0) THEM 

RETURN C-NUMBERJ 
FI 
RETURN CNUMBER] 



PROC GAME5CREENC] 

BYTE I,R 

INT DX 

INT DY 

INT PHI, PHIXY, PHIY 

CARD X 
BYTE Y 

Attract = 
color = 1 







FOR R=5 
DO 

DX = R 
DY = 
PHI = 
NHILE DX 
DO 

PHIY = 
PHIXY = 
X = DX 
Y = DY 
FOR 1 = 
DO 

Plot 
Plot 
Plot 
Plot 
Plot 
Plot 
Plot 
Plot 
OD 
PHI - 
DY = D 
IF AB5 
PHI = 
DX = 
FI 



TO 25 STEP 5 



>= DY 

PHI+DY+DY+1 
PHIY-DX-DX+1 



TO 5 

tXCS CI J +K, YC5 CI) +Y) 
CXC5CI)+Y,YC5CI)+X) 
CXCSCI)+Y,YCSCI)-X) 
CXCSCI)+K, YCSCI3-Y) 
CXC5CIJ-X, YC5 tIJ-Y) 
CXCSCIJ-Y, YCSCI3-K) 
CXCSCI)-Y,YC5CI)+X) 
CXC5CI)-K, YC5CI)+Y3 

PHIY 
Y + 1 
CPHIXY)+0<ABSCPHIY) THEN 

PHIXY 

DX-1 



OD ; WHILE 
OD ; R LOOP 
RETURN 



INT FUNC GetRadiUSC INT X, INT y, BYTE 
tgJ 

INT XX, yy, rr 

rr = XCSCtgJ 
XX = X 
XX = xx-rr 
XX = AbsCxxI 

rr = YCSCtgJ 
yy r y 
yy = yy-rr 
yy = Abscyyl 

XX = XX * XX 

yy = yy » yy 
XX = XX + yy 

IF XX < 625 THEN 

rr = ISqrtC xx ) 
ELSE 

rr = 26 
FI 

RETURNCrr) 



PROC TitleC J 

Graphicsc O ) 

Poke C710, 4J 

PrintEC'Sharp Shooter, by Mat»Rat"} 

PrintEC'CcJ 1985, Analog CoMputing") 

PrintEC"") 

PrintEC'Connect Light Gun first gahie p 

ort") 

PrintEC"") 

PrintEC"Press >«;><^iH;i for NEXT gane or 

") 

PrintEC"type i*itf;u=« key to exit prog 
ran") 

DO 

UNTIL TRIGGER=15 OR CH = 28 
OD 

DO 

UNTIL TRIGGER=14 OR CH = 28 
OD 

RETURN 



PROC RandTgtsC) 
BYTE i, y, f 



FOR i =: TO 5 
DO 

TgselCi) = i 
OD 
FOR i = TO 5 
DO 
DO 

f = RandC 6 ) 
UNTIL f O i 
OD 
y = Tgsel Ci) 
Tgsel Ci) = Tgsel Cf) 
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Tgsel f fj 
RETURN 




PROC BingBongt] 

BYTE bi, bo 

FOR bi = e TO 15 
DO 

5ound(0, 60, 10, 15-bi) 
SoundCl, 64, 10, 15-biJ 
FOR bo = TO 250 
DO 



OD 
5ound C0, 
5ound(0, 
FOR bo = 

DO 

OD 



80, 10, 15-bi) 
84, 10, 15-biJ 
TO 250 



OD 

SoundtO, 0, 0, 0] 

SoundCl, 0, 0, 0) 

RETURN 
t 

PROC BingBapC) 
BYTE bi, ba 



FOR bi 
DO 



TO 15 



5oundt0, 240, 8, 15-biJ 

Soundtl, 245, 6, bi) 

FOR ba = TO 250 
DO 

OD 
SOUndCO, 180, 8, 15-bi) 
5oundC0, 194, 12, bi) 
FOR ba = TO 250 

DO 

OD 



OD 

5oundt0, 0, 0, 0) 
SoundCl, 0, 0, 0) 
RETURN 



PROC MAINC) 

BYTE y, f, i, j 

INT radius 

BYTE buns 

CftRD score, hits. Misses 

CORD hiscore, round 

BYTE hipct 

CARD X 

BYTE BK=712 

round = 1 
hipct = 
hiscore = 
TitleC ) 



DO 



until ESCAPE 
Graphics C31) 
BK = 12 
bulls = 
score = 
hits = 
nisses= 
GOMESCREENC) 



ZeroTiMeO 

RandoMize target selection 
RandTgtsC) 
i = 

FOR j = TO 5 
DO 

color = 3 
FOR f = 1 TO 10 
DO 

SelTargett tgsel C i ) ) 
DO 

GunReadC Gx, Gy ) 
UNTIL TRIGGER=15 OR CH=28 
OD 
IF CH = 28 THEN 
CH=255 
Graphics CO) 
PrintEC'Sharp Shooter, by Mat» 



Rat") 
ting") 



PrintEC"tc) 1989, Analog Compu 

RETURN 

FI 
color = color + 1 
IF color > 3 THEN 

color = 1 
FI 

BlastC X, y ) 

radius = GetRadiusCx,y, tgsel (i)) 
IF radius <= 5 THEN 

bulls = bulls + 1 

BingBongC) 

FI 
IF radius <= 25 THEN 

hits = hits + 1 

score = score + C26-radius) 
ELSE 

nisses = Misses + 1 

BingBap t) 

FI 

DO 

UNTIL TRIGGER=14 

OD 
color = 

SelTargett tgselti)) 
i = i + 1 



IF i > 5 THEN 
i = 

RandTgtst) 
FI 
color = RandC3) + 1 
OD 
OD 
X = GetJTiMeC) 

X = X/60 

IF X < 3600 THEN 

X = 3600/X 
ELSE 

X = 
FI 

CH = 255 
GraphicsCO) 
Poke C7i0, 20) 
PositionC2,2) 

PrintEC"Sharp Shooter By Mat*Rat' 
PrintC"Final Score for Round ") 
PrintCEt round ) 
round = round + 1 
PrintC"Buiiets/Min : 
PrintCEt X ) 
Printt"Total Hits = 
PrintCEt hits ) 
Printt"Total Misses : 
PrintCEt Misses ) 
Print t"Bullseyes = 
PrintBEt bulls ) 
Printt"Score : 
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PrintCEt score ) 

IF score > hiscore THEN 

hiscore = score 

FI 
Print C'flccuracy = "J 
X = 189 » bulls 
X = x/68 
IF X > hipct THEN 

hipct = X 

FI 
PrintCC X J 
PrintEC"!^"J 
PrintEt"") 

PrintC'High 5core = "J 
PrintCEC hiscore ) 
PrintC'Best accurac!/= "J 
PrintBt hipct J 
PrintEt">^"J 

PrintEC""3 

PrintEC'Press Uj&fjm to play"J 

PrintEC-Or tgpe B=MHTTirai to exit") 

DO 

UNTIL TRIGGER314 OR CH=28 

OD 

DO 

UNTIL TRIGGER=15 OR CH=28 

DD 

DO 

UNTIL TRIGGER=14 OR CH=28 

OD 

UNTIL tCH = 28) 
OD 

CH=255 

GraphiCSCG) 

PrintE("5harp Shooter, by Mat»Rat") 

PrintEC'tc) 1589j Analog Conputing") 

RETURN 



LISTING 3: ACTION! 



GUNREAD.ACT 

CHECKSUM DATA 
tea BA 3A 75 52 ] 

Read the Atari light gun 
and convert the readings 
of LPENH & LPENU to current 
graphics node screen coordinates 

Algorithn developed by: 
Matthew J. M. Ratcliff 
Ratware Softworks 
CO 1989 

For Analog Conputing 

Algorithn: 

The DELTA-K gun readings were 
apparently DESIGNED to be 160 
with DELTA-Y at 96. These values 
work out to be Multiples of two, 
by powers of two, for each and 
EVERY possible Atari graphics Mode 
through 15 ffull screen nodes). 

The K reading starts at about 89 
at the far left of the display, 
increases to 227 at about text 
coluMn 34, then drops to zero. 
It increases to about 22 at the 
far right of the display. 

The Y reading starts at about 17 
at the top to 112 at the bottoM. 






The 


end result 


coordinate read 


gun 


for the pre 


Mode. It is up 


to 


assure the s 


CC0L0R»16+INTEN 


to 


get valid gu 


Of 


at least 10 


A ■■ 


flash" techn 


Set 


all playfie 


14, 


call GunRea 


original playfi 



GunRead nornalizes the X reading 
to 0-159, inclusive and Y to a 
range of 0-95. Then the XSHIFT 
and YSHIFT tables are accessed, 
based on the current graphics Mode. 
If the value is less than 128, it 
is a right shift count (divide). 
A value of 128 indicates a single 
left shift [Multiply by 2). 



is a valid X,Y 
ing of the light 
sent graphics 

to the user 
creen intensity 
5ITY) is at a level 
n readings. A value 
is recoMMended. 
ique May work best 
Id intensities to 
d, and restore the 
eld colors. 



PROC GunReadC CARD POINTER XX, 
BYTE POINTER yy) 

BYTE ARRAY XShift=[2 3 3 1110 9 128 
1 1 1 2 2 91 

BYTE ARRAY yshift=r2 2 3 2 119 9 128 
128 128 128 2 3 128 1281 

CARD GunX 
BYTE GunY 

BYTE DINDEXz $57 
BYTE LPENH = 564 
BYTE LPENy = 565 

BYTE Shift, index 



GunX = LPENH 

GunX = GunX & $FF 

GunY = LPENU 

index = DINDEX 

IF GunX <= 40 THEN 
GunX = Gunx + 227 
IF GunX > 255 THEN 

GunX = 255 
FI 

FI 

IF GunX <= 90 THEN 

GunX = 98 
FI 



GunX 



GunX 



90 



IF GunX > 159 THEN 

GunX = 159 
FI 

Shift = xshif tCindex) 

IF Shift = 128 THEN 
GunX = GunX LSH 1 

ELSE 

GunX = GunX RSH Shift 

FI 

GunY = GunY - 17 



IF GunY > 127 THEN 
GunY = 



continued on page 61 
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UTILITY 

M/L EDITOR 

For use in machine-language entry. 



by Clayton Walnum 



M/L 



Editor provides an easy 
method to enter our 
machine-language list- 
ings. It won't allow you 
to skip lines or enter bad 
data. For convenience, you may enter listings 
in multiple sittings. When you're through typ- 
ing a listing with M/L Editor, you'll have a 
complete, runnable object file on your disk. 

There is one hitch: It's for disk users only. 
My apologies to those with cassette systems. 

Listing 1 is M/L Editor's BASIC listing. 
Type it in and, when it's free of typos, save 
a copy to disk, then run it. 

On a first run, you'll be asked if you're 
starting a new listing or continuing from a 
previously saved point. Press S to start, or 
C to continue. 

You'll then be asked for a filename. If 
you're starting a new listing, type in the file- 
name you want to save the program under, 
then press RETURN. If there's already a file 
by that name on the disk, you'll be asked if 
you wish to delete it. Press Y to delete the 
file, or N to enter a new filename. 

If you're continuing a file, type in the name 
you gave the file when you started it. If the 
program can't find the file, you'll get an er- 
ror message and be prompted for another file- 
name. Otherwise, M/L Editor will calculate 
where you left off, then go on to the data en- 
try screen. 

Each machine-language program in 
ANALOG Computing is represented by a list 
of BASIC data statements. Every line contains 
16 bytes, plus a checksum. Only the numbers 
following the word DATA need to be con- 
sidered. 

M/L Editor will display, at the top of the 
screen, the number of the line you're current- 
ly working on. As you go through the line, 
you'll be prompted for each entry. Simply 



type the number and press Return. If you 
press Return without a number, the default 
is the last value entered. 

This feature provides a quick way to type 
in lines with repetitions of the same number. 
As an added convenience, the editor will not 
respond to the letter keys (except Q for 
"quit"). You must either enter a number or 
press Return. 

When you finish a line, M/L Editor will 
compare the entries' checksums with the 
magazine's checksum. If they match, the 
screen will clear, and you may go on to the 
next line. 

If the checksums don't match, you'll hear 
a buzzing sound. The screen will turn red, 
and the cursor will be placed back at the first 
byte of data. Compare the magazine listing 
byte by byte with your entries. If a number 
is correct, press RETURN. 

If you find an error, make the correction. 
When all data is valid, the screen will return 
to gray, and you'll be allowed to begin the 
next line. 

Make sure you leave your disk in the drive 
while typing. The data is saved continuously. 

You may stop at any time (except when you 
have a red screen) by entering the letter Q for 
byte 1. The file will be closed, and the pro- 
gram will return you to BASIC. When you've 
completed a file, exit M/L Editor in the same 
way. 

When you've finished typing a program, 
the file you've created will be ready to run. 
In most cases, it should be loaded from DOS 
via the L option. Some programs may have 
special loading instructions; be sure to check 
the program's article. 

If you want the program to run automati- 
cally when you boot the disk, simply name 
the file AUTORUN.SYS (make sure you have 
DOS on the disk.). 



The two-letter checksum code pre- 
ceding the line numbers here is not 
a part of the BASIC program. For 
more information, see the "BASIC 
Editor 11" elsewhere in this issue. 



LISTING I: BASIC LISTING 



*Z IB BIM BF[le>,HSC4>,A$Cll,B$(l>,FS(15] 

LF il DIM H0D$C4] 

»* Ze LINE = lD00:RETRN=15S!BaCKSP=lZ6!CHK5 

CO 30 G05UB 45S:PDSITI0N 10,6!? "Btart or 

Bontinue? "nCOSUB 50917 CHR$C(I> 
ZE 40 POSITION 10,8:? "FILEHflME") : INPUT P 

$:POKE 752,1:? " " 
FE 50 IF LEN(F$)<3 THEN POSITION 20,10:' 

" ":G0T0 40 
MF GO IF FSC1,2)<>"D:" THEN F1S="D 1 '■ : FIS C 

3)rF$:G0T0 80 
KL 70 F1S=F$ 

Til 80 IF CHR$C0)="5" THEN 128 
FB SO TRdP 430:0PEN ttZ, 4 , 0, Fl$ : TRAP 118 
Ha 108 FOR X = l TO 16:GET tl2,A!NEXT K;LIME 

=LIHE+10:G0T0 100 
NH 110 CLOSE »t2:0PEN 112, 9, 8, Fl$ ; GOTO 170 
WT 120 TRAP leO:OPEN 02, 4, 8, Fl$ : GOSUB 448 

:P05ITI0N 10,18:? "file (ILREdDV EXISTS 

! !":POKE 752,8 
Zil 138 POSITION 10,12:? "EROSE IT? "i:G05 

UB 500:P0KE 7SZ,1:? CHR$(I11 
VH 148 IF CHR$CO)="N" OH CHRS(l»="n" THEN 

CLOSE nZ:G0TO 38 
OG 150 IF CHR$CA]<>"Y" AND CHR$CA1<>"U" T 

HEN 130 
•H 160 CLOSE tt2:0PEN 02, 8,0, FIS 
Xe 178 GOSUB 450:POSITION 10,1:? " I.TilTaiLa 

HEEQ: ";line;chksum=8 

EH 180 L1=3:F0R X=1 to 16:P0SITI0N 13»(X< 
10) tl2»tX>3) ,X»2:P0KE 752,0:? "BYTE «" 

;x;"i "; iGosuB 310 

KH 150 IF EDIT AND L=8 THEN BVIE=BF CXI : GO 

TO 210 
FV 200 ByTE=UALlNS) 
OZ 201 M0D$=N$ 

BU 210 POSITION 22,Xt2:? BYTE;" " 
11 220 BF(X)=BYTE:CHKSUM=CHKSUM+BYTE»X:IF 

CHK5UH>5593 THEN CHKSUH:CHKSUM-10008 
MS 230 NEXT X:CHK5UM=CHK5UMtLIKE:IF CHK5U 

M>9559 THEN CHK5UM=CiiK5UM-10008 
IS 248 POSITION 12,X*2:P0KE 752,01? "CHEC 

K5UM: "; :li=4:gosub 310 

CH 250 IF EDIT AND L=0 THEN 278 

OH 268 C=UAL(HS) 

Sy 270 POSITION 22,X+2:? CJ" " 

XL 280 IF C^CHKSUM THEN 300 

M 290 GOSUB 440:EDIT=1:CHK5UM=0:G0T0 160 

LH 300 FOR X=l TO 16:PUT n2, BF CX) : NEXT X: 

LINE=LINE+10:EDIT=0:GOTO 170 
FW 318 L=e 
KZ 320 GOSUB 500:IF CA=ASC C"0") OR ArASCC 

"q")) AND X=l AND NOT EDIT THEN 420 
M 330 IF AORETRH AND AOBACKSP AND Cft<4 

8 OR A>57J THEN 3Z8 
OX 331 IF A=RETRH OND NS="" THEN NS=MODS 
TO 335 IF A=RETRN AND L=8 AND K>1 THEN 35 

8 
JR 348 IF {CA=RETRN AND NOT EDIT) OR A=B 

ACK5P) AND L=0 THEN 320 
OH 358 IF A=RETRN THEN POKE 752,1:? " ":H 

ETURN 
GG 368 IF AOBACKSP THEN 408 
Sft 378 IF L>1 THEN NS=NS tl, L-1) : GOTO 390 
AS 388 NS="" 

RE 390 ? CHRS(BACK5P) ; ;L=L-l:GOTO 320 
BB 400 L=L*llIF L>L1 THEN A=RETRN1G0T0 35 


MX 410 NSCL)=CHRS(0) :? CHRS(A) ; :goto 320 
KN 420 GRAPHICS : END 
VT 430 GOSUB 440:P0SITI0N 10,10:? "NO SUC 

H FILE!";FOR X=l TO lOOOINEXT X:CL05E 

«12:G0T0 30 
FO 440 POKE 710,4S:S0UND 8, 100 , 12 , 8 : FOR X 

=1 TO 50:NEKT X:S0UND , 0, , : RETURN 
MV 458 GRAPHICS 23!P0KE 16,112:P0KE 53774 

,H2:P0KE 5S9,0;P0KE 710,4 
XR 460 DL = PEEK<560)+256tlPEEK(561)t4;P0KE 

DL-1,70:P0KE DL+2,6 
HN 470 FOR X=3 TO 39 STEP 2:P0KE DLtK,2;N 

EXT X:FOR X=4 TO 48 STEP 2:P0KE DL*X,e 

ZH 480 POKE DL*41,65:P0KE DLt42 , PEEK (560) 

:P0KE DLt43,PEEK[561) :POKE 67,0 
AC 490 POSITION 2,0:? "analog nl editor": 

POKE 5S9,34:RETURN 
ML 500 OPEN tIl,4,0,"K:":GET Bl.AiCLOSE 01 
ml I RETURN ^ 
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BASIC 

Editor n 



bv Clavton Walnum 



BASIC Editor 11 is a utility to help you 
enter BASIC program listings pub- 
lished in ANALOG Computing. To 
simplify the identification of errors, 
each program line is evaluated im- 
mediately after it's typed, eliminating the 
need for cumbersome checksum listings. 
When you've finished entering a program us- 
ing BASIC Editor II, you can be certain it 
contains no typos. 

An option is provided for those who wish 
to use standard BASIC abbreviations. Also, 
the program retains all Atari editing features. 
Finally, for those who prefer to type programs 
the conventional way, using the built-in edi- 
tor, a post-processing mode is available. It al- 
lows you to check typing after the entire 
listing has been entered. 

Typing in the Editor 

To create your copy of BASIC Editor II, 
follow the instructions below— exactly. 

Disk version: 

(1) Type in Listing 1, then verify your work 
with Unicheck (see Issue 39). 

(2) Save the program to disk with the com- 
mand SAVE •'D:EDIT0RL1.BAS". 

(3) Clear the computer's memory with the 
command NEW. 

(4) Type in Listing 2, then verify your work 
with Unicheck. 

(5) Run the program (after saving a back- 
up copy) and follow all the on-screen 
prompts. A data file will be written to your 
disk. 

(6) Load Listing 1 with the command 
LOAD "EDIWRLLBAS". 

(7) Merge the file created by List- 
ing 2 with the command ENTER 
"DML.DAT". 



(8) Save the resultant program with the com- 
mand LIST ■■D:EDimRII.LST': 

Cassette version: 

(1) Type in Listing 1 and verify your work 
with Unicheck. 

(2) Save the program to cassette with the 
command CSAVE. (Do not rewind the 
cassette.) 

(3) Clear the computer's memory with the 
command NEW. 

(4) Type in Listing 2 and verify your work 
with Unicheck. 

(5) Run the program and foUow the on- 
screen prompts. A data file will be written to 
your cassette. 

(6) Rewind the cassette. 

(7) Load Listing 1 with the command 
CLOAD. 

(8) Merge the file created by Listing 2 with 
the command ENTER "C:". 

(9) On a new cassette, save the resultant pro- 
gram with the command LIST ' 'C: ' '. 

Using the Editor 

Take a look at one of the BASIC program 
listings in this issue. Notice that each program 
line is preceded by a two-letter code. This code 
is the checksum for that line; it's not a part 
of the program. 

To enter a program listing from the maga- 
zine, load BASIC Editor 11 with the ENTER 
command, and run it. You'll be asked if you 
wish to allow abbreviations (see your BASIC 
manual). If you do, type Y and press 
RETURN. Otherwise,. type M 

Note: If you set BASIC Editor II to allow 
abbreviations, the program will run slightly 
slower. 

Your screen will now be divided into two 
"windows." The upper window will display 
each line after it's processed, as well as the 



checksum generated for that line. The lower 
window is where program lines are typed and 
edited. 

When the program's waiting for input, the 
cursor will appear at the left margin of the typ- 
ing window. Type a program line and press 
RETURN. The line will be evaluated and 
reprinted in the message window, along with 
the checksum generated. 

If the checksum matches the one in the 
magazine, then go on to the next program line. 
Otherwise, enter the command E (edit) and 
press RETURN. The line you just typed will 
appear in the typing window, where you may 
edit it. When you think the line has been cor- 
rected, press RETURN, and it'll be 
reevaluated. 

Note: You may call up any line previously 
typed, with the command E followed by the 
number of the line you wish to edit. For ex- 
ample, E230 will print Line 230 in the typ- 
ing window. Do not attempt to edit any 
program lines numbered 32600 and higher 
These lines fall within the BASIC Editor U 
program. 

If you're using BASIC abbreviations, the 
two versions of the command E work slightly 
differently. The command E, without a line 
number, will call up the line exactly as you 
typed it. When you append the line number, 
the line will be printed in its expanded (un- 
abbreviated) form. 

Leaving the Editor 

You may leave BASIC Editor n at any time, 
by entering either B (BASIC) or Q (quit). If 
you type B, the Editor will return you to BAS- 
IC. Enter LIST to review your work, if you 
wish. Note that lines 32600 and above are the 
Editor program. Your work will appear be- 
fore these lines. To return to the Editor, type 
GOTO 32600. 

Type Q, and you'll be asked if you really 
want to quit. If you type Y, the Editor pro- 
gram will be erased from memory, and you 
may then save your work in any manner you 
like. If you type A^, the Q command will be 
aborted. 



Large listings 



If the program you're entering is particu- 
larly long, you may need to take a break. 
When you want to stop, type Q and press 
RETURN, then save your work to disk or cas- 
sette. When you're ready to start again, load 
the program you were working on, then load 
BASIC Editor U with the ENTER command. 
Type GOTO 32600, and you're back in 
business. 
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The post-processor 

Many people may not want to use BASIC 
Editor n when entering a program listing, 
preferring, instead, the Atari's built-in editor. 
For that reason, BASIC Editor II will allow 
you to check and edit your programs after 
they've been typed. 

To take advantage of this option, type any 
magazine program in the conventional man- 
ner, then save a copy to disk or cassette (just 
in case). With your typed-in program still in 
memory, load BASIC Editor n with the 
ENTER command, then type GOTO 32600. 

Respond with A' to the "abbreviations" 
prompt. When the Editor appears on your 
screen, enter the command P (post-process), 
and the first program line will appear in the 
typing window. Press RETURN to enter it into 
the Editor. 

The line will be processed, and the check- 
sum, along with the program line, will be 
printed in the upper window. If the checksum 
matches the one in the magazine, press 
RETURN twice, and the next line will be 
processed. 

If you find you must edit a line, enter the 
command E, and the line will be moved back 
to the typing window for editing. 

When the entire listing has been checked, 
you'll be asked if you wish to quit. Type Y 
and press RETURN. The Editor program will 
be removed from memory, and you may then 
save the edited program in any manner you 
wish. 

Murphy ^s Law 

Anyone who's been associated with comput- 
ing knows this is the industry Murphy had in 
mind. You may find that, after typing a pro- 
gram with BASIC Editor II, it still won't run 
properly. There are two likely causes for this. 

First, it may be that you're not following the 
program's instructions properly. Always read 
the article accompanying a program before at- 
tempting to run it. Failure to do so may present 
you with upsetting results. 

Finally, though you can trust BASIC Edi- 
tor n to catch your typos, it can't tell you if 
you've skipped some lines entirely. If your 
program won't run, make sure you've typed 
all of it. Missing program lines are guaran- 
teed trouble. 

One last word: Some people find it an un- 
necessary and nasty chore to type REM lines. 
I don't condone the omission of these lines, 
since they may be referenced within the pro- 
gram (a bad practice, but not unheard of). If 
you want to take chances, BASIC Editor 11 is 
willing to comply. 



When you \e finished entering a 

program using BASIC Editor II, you 

can be certain it contains no typos. 



Listing 1. 
BASIC listing. 



32600 IF FL THEN IZ616 

3260Z DIM L$I115),SUS(lt5>,C2$CZl,B$Ci 

15),M$(ll?),5SC38),ESC69),ft$[l) 1FL=1!S 

TMT0B=PEEKtl36)tPEEKClI7JH256 

32604 GRAPHICS 8:P0KE 718, : P=0 ! ftBR=0 : 

? "dULOM OBBREUIATIONS"; IINPUT flSilF A 

S="V" OR A$="y" THEM Aen=l 

32606 B5(1)=" "!BS(115)=" ";BSI2)=BS 

32616 OPEN 1117,4,B,"E:"!LS = C05UB 3 

2662;5TART=0 

3261B POKE 766,1!P0KE 83, 39 ! POSITION 1 

,3!IF LEN(LS)<39 THEN ? L$;GOTO 32624 

32620 IF LEH(LS)<77 THEN ? LS(1,38)!? 

LSI39,LEN(L$)1 IGOTO 32624 

32622 ? LSC1,38);? L$t3S,7B)l? L$C77,L 

EN(L$)) 

32624 POKE 752,0:P0KE 766,0:P0KE 555,3 

4:P0KE 82,1:P0KE 83, 38 ! POSITION 8,10!? 

" ";;IHPUT 1J17;LS:P0KE 766,1 
32626 IF tLS="P" OR LS="p"J AND START= 
8 THEN P=1!LS="" 

32628 IF L$="E" OR L*="e" THEN E=l!POS 
ITIOH 1,10;? SUS GOTO 32624 
32630 IF LS="n" UR LS="q" THEN 32658 
32632 IF LS="" AND P=l THEN 32686 
32634 IF LS="" THEN 32624 
32636 IF LS="B" OH LS="b" THEN GRAPHIC 
5 8!? "TVPE 'GOTO 32608' TO CONTINUE"! 
END 

32638 IF LSC1,1)="E" OR LS(l,l)3"e" TH 
EH E=11TRAP 32624;EL=UAL(LS(2)) !POSITI 
OH 1,5!LI5T ELlGOTO 32624 
32648 SUS^LSiTRAP 32624 ! HrUAL CLS) 
32642 START=l!IF P AND NOT E THEN 326 
52 

32644 GOSUB 32674!lF NOT ABR OR P THE 
N 32652 

32646 POKE 766,0!? CHR$ (125) ! POSITION 
8,3!L=UAUCLS) !LI5r LI? I? !? "CONT"!LS 
= 85 

32648 POSITION 0,0!POKE 842,13:ST0P 
32650 POKE 842, 12 ! A=USR (ADR CS$> , ADR (L$ 
1,4) !LS=L5(1,A) 

32652 CHKSUH=U5R(aDR(H$> ,ADR(L$) ,LEN(L 
$)) lCHK5UM=CHK5UMtPEEK(154 2)»65S36 
32654 CHK = CHK5UM-(INT(CHKSUM/6 76))t676) 
!HI=IHT(CHK/26) ! LO=CHK- (HIK26) !C2$(1)= 
CHn$(HIt65) 1C2$(21 =CHRS (L0t65) 
32656 IF NOT P OR E THEN E=8!G0SUB 32 
662!IF NOT P THEN 32668 
32658 POKE 83,39!P0KE 752,llF0R K=3 TO 

S:P05ITI0M 1,H!? BS(1,38) IPOSITION 1, 
X*7!? BS(1,38) !NEKT XiPOKE 83,38 
32660 POKE 766,l!P0KE 83 , 38 ! POSITION 6 
,7!? C2S!P0KE 752,01G0T0 32618 
32662 GOSUB 32702!P0KE 7e6,0!P0KE 752, 
1!? "H"!POKE 82,1!DL = PEEK(560)+256)<PEE 
K(5ei) t4 

32664 POKE DL-1,78!P0KE DLt2,61P0KE DL 
+3,112!P0KE DLt4,112!P0KE 0L+5,112!P0K 
E 0Ltl3,112!P0KE DLtl4,112 
32666 POKE DLt22,112!P0KE DL*23,112!P0 
KE DLt24,65!P0KE DL + 25 , PEEK (5601 1 POKE 

DL»26, PEEK (561) !POKE 83j^9 

32668 POSITION 20,0!? 
'rPOSITION 8,7!? " 




POSITION 1,7 

3267FT0KE 559, 34 ! RETURN 

32674 GRAPHICS 0!POKE S59,e!P0KE 766,1 

IPOKE 82,8!P0KE 83 , 39 ! POSITION 0,3!? L 

$!? !? !? !? "C0HT"!P051TI0H 8,0 

32676 POKE 842,13!5T0P 

32678 POKE 842,12!TRAP 32682 ! AzUSR (ADR 

(E$) ,UAL(L$1) !IF A=4 THEN POP IGOTO 32 

682 

32680 RETURN 

32682 GOSUB 326G2!S0UND 8, 75, 10, S ! FOR 

X=l TO 20:NEKT XISOUND 8,e,8,8!P0SITI0 

N 1,31? "SVNTAX ERR0R!"!P0KE 766,1 

32684 POKE 83, 38 : POSITION 1,18!? 5VS!C 

OTO 32624 

32686 HNE = PEEK(STHTOB)tPEEK(STHTAB + l) 

»2S6;IF LINE>32599 THEN 3269B 

32688 0FS=PEEK(STMTABt2) ! STMTABrSTHTAB 

♦OFSiPOSITION 1,9!LIST LINEiGOTO 32624 

32690 POKE 766,8!P0SITI0M l.lBl? "READ 

Y Te ouiT";!iNPUT aSiif aS<>"y" them P 

OSITION 1,18!? BS(1, 381 IGOTO 32624 

32692 GRAPHICS 8!? !? !? !FOR X=32600 

TO 32636 STEP 2!? K!NEXT K!? "COMT"!PO 

SITION e,0!POKE 842,13!ST0P 

32694 POKE 842, 12 1 GRAPHICS 8!? I? !7 1 

FOR X=32638 TO 32674 STEP 217 XINEXT X 

1? 1? "C0NT"1P0SIII0N 8,8 

32696 POKE 842,13!ST0P 

32698 POKE 842, 12 1 GRAPHICS 81? I? 1? 1 

FOR Xr32e76 TO 32782 STEP Zl? XINEXT X 

I? I? "POKE 842,1Z"|P0SITI0N 8,0 



32700 POKE 842,13!5T0P 

3278Z P8KE ICIIZIPOKE 53774, 112 I RETUR 

N 



CHECKSUM DATA. 

(.see issue 39's Unicheck) 



32600 DATA 6,665,523,757,809,171,225,8 
98,532,499,918,267,912,144,735,8453 
3263B DATA 97,358,230,693,706,878,317, 
127,36,597,238,258,182,438,168,5315 
32668 DATA 864,953,472,385,887,724,72, 
687,988,736,625,612,672,184,891,9672 
32698 DATA 8,856,85,949 



Listing 2. 
BASIC listing. 

18 DIM L$(120),ML$(119),AS(11 
20 GRAPHICS OIPOKE 710,01? "QISK OR HA 
55ETTE"; IINPUT AS 1 IF AS<>"C" AND AS<>" 
D" THEN 20 

30 IF AS="C" then 58 

40 ? "PLACE FORMATTED DISK IN DRIUE"!? 
"THEN PRESS RETURN"!INPUT LSlOPEN ttl, 
8,O,"DIML.DAY"!G0T0 60 

50 ? 1? "READY CASSETTE, PRESS RETURN" 
;!INPUT LSlOPEM «11,8,0,"C:" 
60 LS="32608 MS (11 =" ! LS (13) =CHH$ (34) 
70 K=119lC0SUB 130|LS(141=HLS(1,58) ILS 
(LEH(LS)+11=CHRS(34) !? tll;LS 
80 LS(11="32610 MS(591="!LS{14)=CHR$(3 
4) !LS(15)=MLS(59) |L$(LEN(LS)«1)=CHR$(3 
4) I? ai;LS 

90 LS(1)="32612 SS="lLS(181=CHRS(34) 
100 HLS=""!N=98!G0SUB 130 ! LS (111 =MLS 1 L 
$(LEN(LS1+11=CHRS(341 1? ni;L$ 
110 LS(11="32614 ES="!LS(10):CHRS(34) 

120 MLS = N = 69IG0SUB 130 I LS (11) =MLS ! L 

$(LEN(LS)tl)=CHRS(34) 1? BlJLSlEND 

130 FOR X = l TO NlREAD A I MLS (X) =CHRS (A) 

INEXT XIRETURN 

140 DATA 104,184,133,284,184,133,283,1 

04,104,133,285,169,8,141,3,6,141,2,6,1 

41,4,6,141,5,6 

158 DATA 141,6,6,238,3,6,32,68,218,172 

, 2, 6, 177, 203, 133, 212, 3Z, 178, 217, 32, 182 

,221,32,68,218 

160 DATA 173,3,6,133,212,32,178,217,32 

,219,218,32,218,217,165,212,141,8,6,16 

5,213,141,1,6,24 

178 DATA 173,0,6,189,4,6,141,4,6,173,1 

,6,10 9,5,6,141,5,6,144,3,238,6,6,238,2 

180 DATA 6,172,2,6,196,285,208,176,173 

,4,5,133,212,173,5,6,133,213,96 

190 DATA 104,104,133,204,104,133,203,1 

04,104,141,255,6,169,8,133,213,216,165 

,88,133,205,165,89,133,206 

200 DATA 174,255,6,24,165,205,105,40,1 

33,205,144,2,230,206,202,208,242,168,8 

,177,205,201,64,144,18 

210 DATA 201,96,144,19,281,128,144,18, 

281,192,144,6,201,224,144,7,176,8,24,1 

85,32,144,3,56,233 

220 DATA 64,145,203,200,192,114,240,2, 

208, 215, 177, 283, 281, 32, 288, 3, 136, Z8B, 2 

47,200,132,212,96 

238 DATA 104,104,141,254,6,104,141,253 

,6,169,0,133,213,216,165,136,133,205,1 

65,137,133,206,160,0,177 

240 DATA 205, 205, Z53, 6, ZOO, 8, 208, 177, 2 

05,205,254,6,240,15,160,2,177,205,24,1 

01,205,133,205,144,228 

250 DATA 230,206,176,224,160,4,177,205 

,201,55,248,4,168,8,240,8,132,212,96 



CHECKSUM DATA. 

fsee issue 39's Unicheck] 



18 DATA 283,265,465,844,294,973,652,27 
0,978, 797, Z78, 275, 835, 209, 301, 7639 
50 DATA 355,94,254,428,935,840,588,41 ^— 
,974,564,5435 ^ 
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TRAINING 

ARRAYS 



by Clayton Walnum 



So far we've talked about two kinds of 
variables: numeric and string. In this 
installment, I'd like to cover a varia- 
tion on numeric variables, a powerful 
data structure known as an array. 
Arrays can be a little confusing at first, but 
in order to be a proficient BASIC program- 
mer you must be able to handle them. 

Actually, we've already talked a little about 
arrays, because a string is really nothing more 
than a character array. Last month, when we 
talked about strings, I provided this diagram: 

12 3 4 5 



BENN V 



Here you can see that we've got a series 
of values (in this case, character values) 
stored consecutively in memory. Each 
character in the string can be identified (in- 
dexed) according to its position in the string. 
Now let's take the above diagram and replace 
the character values with numeric values: 

1 Z 3 4 5 



57291 



We have now converted the string— a 
character array— into a numeric array. Just 
like the string, each value in the array is iden- 
tified by a number that represents its posi- 



tion. In other words, we can access the 
number 2 by referring to the third "element" 
of the array. This is where things get confus- 
ing, because with numeric arrays, we're al- 
ways working with two numbers: the index 
(or position) of a value and the value itself. 

Programming with arrays 

Just like strings, array variables have to be 
dimensioned so BASIC knows how much 
space to reserve for them. The DIM state- 
ment for a numeric array looks almost exactly 
like the DIM statement for a string. The only 
difference is we don't end the variable name 
with a dollar sign. Here's a DIM statement 
for the array illustrated above: 

IG DIM NUMBERS (51 

This program line tells BASIC that we want 
to use an array called NUMBERS and that 
the array will need to store a maximum of 
six values. 

Whoa! Six values? Yep. You see, array in- 
dexes actually start at zero. The first position 
of NUMBERS is actually position 0. But be- 
cause most people tend to think of position 
1 as the first posifion in a series, BASIC 
programmers (mostly being people too) like 
to ignore the element and begin with ele- 
ment 1. Let's revise our illustration to show 
what our array really looks like: 



I've placed a question mark in element 
because, unless we've placed a number there, 
we can't be sure exactly what's stored in that 
position. Usually it'll be a 0, but it's a good 
programming practice not to trust the value 
of any variable we haven't first initialized 
(given a value to). 

Now that we have a name for our array, we 
can use the indexes to access any values in 
the array. If the array was set up as illustrat- 
ed, we could refer to the number 2 with the 
statement NUMBERS(3). We interpret this 
as meaning the value stored in the third ele- 
ment (skipping element 0) of NUMBERS. 
Remember: the number in parentheses is not 
a value stored in the array, but rather the po- 
sition of the value we want. 

How would we refer to the number 1 in the 
array NUMBERS? Everyone who said 
NUMBERS(5) gets a gold star. 

Although our illustration shows the array 
already filled with values, in our program we 
still have an uninitialized array. To get the 
values into NUMBERS( ), add the follow- 
ing line to Line 10 from above: 

20 NUMBERS CI) =5: NUMBERS t2) =7: 
NUMBERS C3} =2 : NUMBERS (43 =9 : NUM 
BERSt5J=l 

This is only one way of getting the job 
done. It's not the best way, but until we learn 
about loops, it's the best we can do. In Eng- 
lish, Line 20 reads "Place the value 5 into 
position 1 of the array NUMBERS; place the 
value 7 into position 2 of the array NUM- 
BERS; place the value 2 into position 3 of 
the array NUMBERS. . ." etc. 

To prove that we have indeed set up our ar- 
ray as shown in the original illustration, add 
these lines to our program: 



30 
40 
50 
60 
70 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



NUMBERS CI) 
NUMBERS C2) 
NUMBERS C3} 
NUMBERS (4) 
NUMBERS C5) 



If you were to run this program, you would 
get the following output: 

80 X=l!PRIHT NUMBERSCX) 
90 X=2:PRIHT NUMBERSCX) 
100 X=3!PRINT NUMBERSCX) 
110 X=4:PRINT NUMBERSCX) 
120 X=5:PRINT NUMBERSCX) 

An array's index doesn't have to be a con- 
stant (an explicit number). It can also be a 

SEPTEMBER A.N.A.L..a.a. Computing 



variable. For example, add the following lines 
to our program: 

3 

7 
2 
f 

1 

Now when you run the program, you'll get 
the following output: 

5 
7 
2 
9 
1 
5 
7 
2 
9 
1 

The first five numbers in the list were print- 
ed by Lines 30 through 70, using constants 
as array indexes. The second five numbers 
were printed by Lines 80 through 120, using 
the variable X as the index and changing the 
value of X each time we used it. 

Two-dimensional arrays 

The above examples used a one- 
dimensional array. Unlike strings, though, 
numeric variables can have two "dimen- 
sions." Two-dimensional arrays are some- 
times thought of as "tables" or "matrices" 
because they organize data in much the same 
way we would if we drew a table of values 
on a piece of graph paper, like this: 





1 


2 


3 


4 


5 


1 


5 


2 


4 


1 


8 


2 


7 


1 


6 


2 


9 


3 


1 


4 


7 


2 


1 



To locate a value in a table like this, we 
need to have two indexes, the column and the 
row. For example, the value 6 can be found 
in column 3, row 2. This table is a graphic 
representation of a two-dimensional array. 
Let's use the array name TABLE, and dimen- 
sion the array as a two-dimensional array: 

16 DIM TftBLEO, 3) 

In the above line, we've told BASIC that 
we want a two-dimensional array with five 
columns and three rows (actually, six 
columns and four rows if we count the ele- 
ments). If we wanted to refer to the number 
6 in the above table, we could call it 
TABLE(3,2). 

Here's a simple way to get the values from 
the table into our array. Add these lines to 
Line 10: 
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2B TABLEtl, 1)=5:TABLEC2, 1)=2: 

TABLE C3, 1) =4 : TABLE C4, 1) =1 : TAB 

LEC5,1)=8 

36 TABLE(l,2Jr7:TABLE[2,23=l: 

TABLE C3, 2) =6 : TABLE C4, 2) =2 : TAB 

LEC5, 23=9 

46 TABLEtl,3)=l:TABLEt2,3J=4: 

TABLEt3, 3)=7:TABLE(4, 3)=2:TAB 

LEt5, 3)=1 

In Line 20 we initialize row 1 of the array, 
in Line 30 we initialize row 2, and in Line 
40 we initialize row 3. As you can see, multi- 
dimensional arrays are much more compli- 
cated than single-dimensional arrays, and 
they can store a great deal more data. 

Just as with a one-dimensional array, we 
may use numeric variables as indexes for a 
two-dimensional array. Frequently, the 
familiar X and Y are used as "coordinates" 
for the location of a piece of data. 

What's the point? 

Why are arrays so valuable to us as 
programmers? Because they allow us to 
quickly and conveniendy access data. For ex- 
ample, suppose we had a class with five stu- 
dents in it. We could store each student's final 
grade average in an array, then use the stu- 
dent's ID number as an index for finding his 
grade. The following program illustrates this 
use of an array: 

18 DIM GRADES C5) 

26 GRADEStl)=88:GRADESt2)=75: 

GRADES C3) =92 : GRADES t43 =67 : GRA 

DES(5)=86 

36 PRINT "ENTER STUDENT ID NU 

MBER" 

46 INPUT STUDENT 

56 PRINT "STUDENT'S GRADE AUE 

RAGE IS "J GRADES tSTUDENT) 

Line 10 dimensions the array GRADES( ). 
Line 20 initializes GRADES( ), putting each 
student's grade into one element of the ar- 
ray. Line 30 prompts the user for an ID num- 
ber, and Line 40 retrieves this number from 
the keyboard. Line 50 displays on the screen 
the grade for the student ID entered in Line 
40. 

When you run this short program, you'll 
see something like this: 

ENTER STUDENT ID NUMBER 

?3 

STUDENT'S GRADE AUERAGE IS 92 

Just be careful not to enter a number low- 
er than 1 or greater than 5. If you enter a 0, 
you'll get a value that doesn't mean anything 
because we never initialized element of the 
array. If you enter a number greater than 5, 
you'll get an error because you'll be trying 
to access an array element that doesn't exist. 
Try it and see what happens. 



Now how about an example of using a two- 
dimensional array. Let's take an even smaller 
class, say, three students. Now let's use a two- 
dimensional array to keep track of all of each 
student's test scores for the class. Table 1 
shows what we find in the teacher's 
gradebook. 



STUDENT ID TEST 1 TEST 2 TEST 3 



Smith, Bill 1 
Stowe, Jane 2 
White, Alex 3 



85 
74 
91 



72 
78 
85 



92 
82 
82 



Table 1 
This program is a computerized version of 
the gradebook: 

16 DIM GRADESC3, 3) 

26 GRADESfl,l)=85:GRADESt2,l) 

=72:GRADESC3, 1)=92 

36 GRADES tl, 2) =74: GRADES £2, 2) 

=78:GRADESt3,23=82 

46 GRADES tl, 3) =91: GRADES £2, 3) 

=85:GRADES(3,3)=82 

56 PRINT "ENTER STUDENT ID" 

G6 INPUT STUDENT 

76 PRINT "ENTER TEST «" 

86 INPUT TEST 

98 PRINT "THE SCORE IS "JGRAD 

EStTEST, STUDENT) 

Line 10 dimensions the two-dimensional 
array GRADES( ). Lines 20 through 40 in- 
itialize the array with the students' test scores. 
Line 50 prompts the user for the student ID, 
and Line 60 retrieves that number from the 
keyboard. Lines 70 and 80 get the test num- 
ber in the same way. Finally, Line 90 uses 
the values retrieved for TEST and STUDENT 
as indexes for accessing the appropriate 
score. 

A typical run of the above program might 
look like this: 

ENTER STUDENT ID 

?2 

ENTER TEST tt 

?3 

THE SCORE IS 82 

Some final words 

In closing, I should mention that some 
BASICS allow arrays larger than two dimen- 
sions. A three-dimensional array— one that 
might be dimensioned as ARRAY(5,5,5), for 
example— can be visualized as a cube, where- 
in values are located by the column, row and 
depth at which they reside. Four- and five- 
dimensional arrays are also possible in some 
BASICS and other languages, but they are 
creatures that can reside only in the abstract 
environment of a computer's memory. There 
is no real-life table we can create to represent 
them. 

Next time, we'll look at looping techniques, fl 




by Tom Hudson 



In this month's Boot Camp, we're going 
to finish our discussion of X and Y reg- 
ister indexing and become proficient in 
multi-byte addition. 
Regular Boot Camp readers will be 
happy to know that the introductory materi- 
al will be completely covered in the next few 
isues. After that, we can start applying all the 
6502 instructions to useful subroutines and 
full-scale programs! 

Solution 12 

I hope everyone at least tried to solve the 
indexing problem presented last issue. This 
problem asked readers to write the code 
necessary to copy the contents of the six-byte 
TABLEl to TABLE2 in reverse order. This 
little brain-teaser is an excellent opportunity 
to gain more experience with the 6502 index 
registers. 

Below is the code necessary to copy 
TABLEl to TABLE2 in normal order. This 
code was shown last month. 



le »= $600 




20 LDK «5 




30 COPY LDft TABLEl, 


>x 


40 STfl TABLE2, 


rX 


58 DEK 




60 BPL COPY 




70 BRK 




80 TflBLEl .BYTE 10, 


,20,30,40,50,60 


90 TflBLEZ »r*+6 




0100 .END 





In order for 

BASIC to 

reconstruct the 

number, it must 

multiply each byte 

by the value of its 

lowest-order bit. 



I told you that only three changes to this 
code would allow it to copy the table in re- 
verse order. The changed code is shown 
below. 



18 


K= 


$600 


28 


LDX 


«S 


38 


LDY 


ao 


48 COPY LDft 


TflBLEl, X 


58 


STft 


TflBLE2,Y 


60 


INY 




70 


DEX 




80 


BPL 


COPY 


98 


BRK 





eiOO TflBLEl .BYTE 10,20,30,40,50,60 
0110 TflBLE2 «=X+6 
0120 .END 

How does it work? Let's step through the 
code and see. 

Line 20 sets the X register to 5. This reg- 
ister will be used to point to different parts 
of TABLEl. With the index starting at 5, the 
register will point to the last byte of TABLEl. 

Line 30 sets the Y register to 0. This reg- 
ister will be used to point to varying places 
in TABLE2. Unlike the X register, the Y reg- 
ister will start pointing at the first byte of 
TABLE2. 

Lines 40-80 perform the table-data move 
function. 

Line 40 loads the accumulator with a byte 
from TABLEl, indicated by the X register. 

Line 50 stores the byte just loaded into a 
byte of TABLE2, indicated by the Y register. 

Lines 60 and 70 are the heart of this rou- 
tine. Note that the Y register is incremented 
each time the loop is executed, while the X 
register is decremented. Here are the X and 
Y register contents for each iteration of the 
loop. 



TflBLEl 


TflBLE2 


CX) 


tY) 


S 





4 


1 


3 


2 


2 


3 


1 


4 


8 


5 



AA 
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By looking at the above, you can see that 
the sixth byte (5+1) of TABLE! will be 
moved to the first byte (0+1) of TABLE2, the 
fifth byte of TABLEl to the second byte of 
TABLE2, and so on. 

Line 80 loops back to the COPY label if 
the X register is positive (0-127). Once the 
X register is decremented past zero, it "wraps 
around" to binary 1 1 1 1 1 1 1 1 , or -1 decimal, 
and the program stops at the BRK instruc- 
tion in Line 90. 

Line 100 sets up the initial values contained 
in TABLEl. 

Line 110 tells the assembler to reserve six 
bytes forTABLE2. Remember, the "*=*-|-" 
directive allows you to set aside any number 
of bytes for tables, working areas, etc. 

As a further example of the "reverse table" 
problem, below is the BASIC equivalent of 
the assembly code. 



la D 

15 T 

=30 

)=60 

26 X 

3S 

40 

50 

60 

70 

80 

90 



IM TftBLElCS) ,TttBLE2t5) 
flBLEieO)=10irflBLElCl)=2B:TflBLElf2) 
TABLEl t3) =40: TABLEl C4) =50 ;T(lBLElt5 



:5 

:0 

TABLEICX) 
flBLE2tY3=A 
= Y+1 
= X-1 

F X>=0 THEN 48 
ND 



Why do we want to bother with multi-byte 
math? If you're only working with numbers 
from zero to 255, then single-byte math is 
fine. But what happens when you're wrifing 
the ultimate game program and need to show 
scores into the hundreds of thousands of 
points? Multi-byte math is the answer. 

The simplest form of multi-byte math is 
probably the two-byte address storage. The 
6502 can address 65536 (or 2"') bytes of 
memory. Observant readers will note that this 
number will easily fit into two eight-bit bytes. 

You've probably encountered two-byte ad- 
dresses in BASIC. For example, if you need 
to know where your computer's display list 
is located, you can use the BASIC command: 

DLIST=PEEK C560) +PEEK C561J»256 

How does this work? Normally, we think 
of a byte as having bit values from one to 128 
(left to right). In order to represent larger 
numbers, we add a second higli-order byte 
to the first low-order byte. The high-order 
byte contains bit values from 2* (256) to 2'^ 
(32768). This relationship is shown below. 



the high-order byte is multiplied by 256. 
When the resulting numbers are added to- 
gether, you have the value of the two-byte 
number. 

Here are some decimal numbers, along 
with their two-byte binary equivalents. 



DECIMAL 


HIGH BYTE 


LOW BYTE 


128 


00000000 


18800000 


255 


00000000 


11111111 


255 


80000001 


88000008 


257 


00000001 


88800001 


511 


00000081 


11111111 


512 


80000010 


00000880 


65534 


11111111 


11111118 





00088888 


80000088 



You don't have to stop with two bytes, ei- 
ther. For example, by using three bytes you 
can store numbers up to 2^", or 16,277,216. 
Four bytes will give up to 2^^ qj- over four 
billion, and so on. 



Cartyin^ On 



How is multi-byte math handled in 6502 
assembly language? It's the same as single- 
byte, but with one difference. In multi-byte 
addition, the Carry flag is used to handle car- 
ries and borrows. 



Note that in BASIC it is necessary to ini- 
tialize the TABLEl array (Line 15). This does 
the same thing as the .BYTE directive in Line 
100 of the assembly code. 

This should give you a good idea of how 
indexing works. If you still have trouble, 
reread last month's discussion of indexing and 
try developing your own simple problems. 

Math Revisited 

As promised last month, we're going to 
start looking at multi-byte math operations, 
both in binary and binary-coded decimal 
(BCD). 

SEPTEMBER A.N.A.L.O.Q. Computing 
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1 
































2 6 8 4 2 1 


731BBG5Z 1 


68994215 2631 


8 4 2 6 8 4 2 6 




8 4 2 6 8 4 2 1 





































In order for BASIC to reconstruct the num- 
ber, it must multiply each byte by the value 
of its lowest-order bit. In the two-byte case, 
the low-order byte is multiplied by one, and 



You've used carries and borrows all your 
life, but you probably don't think about them. 
Consider the addition of 13+9. When you add 
3+9, you get 12. Since 12 is greater than the 



AS 



maximum digit value of 9, you place the units 
portion (2) in the units portion of the result 
and carry the 10 to the next digit. This adds 
to the tens digit of 13, giving 20. When this 
is added to the units portion calculated earli- 
er, we get a result of 22. 

In subtraction, if you're subtracting 7 from 
20, 7 is larger than 0, so a borrow from the 
next digit is necessary. The 2 in the tens po- 
sition becomes a 1, and the 7 is subtracted 
from the borrowed 10, giving a result of 3 in 
the units position. The final result is 13. 

These same principles apply in multi-byte 
math operations. The only difference is the 
base we are operating in. As you recall from 
a previous Boot Camp, the Carry flag is set 
to 1 if the result of an addition operation is 
greater than 255. In single-byte addition, we 
always clear the Carry flag before the ADC 
operation. In multi-byte adds, the Carry is 
only cleared before the first addition opera- 
tion. This prevents any unwanted carries from 
giving incorrect results. 



eooooooo 

+ 00000000 



00000001 



11111111 C25S) 
00000001 C 1] 



00000000 (256) 



The above shows how carries work in bi- 
nary. When 1 is added to 255, the resulting 
value of 256 is too large to fit in one byte. 
The low-order byte wraps around to and 
the Carry flag is set. The high-order bytes 
are then added, along with the Carry flag (1). 
This gives the high-order result a value of 1. 
Remember that the high-order byte of a two- 
byte value is always multiplied by 256. This 
gives us a final value of (1x256)4-0=256. 

Below is the code necessary for this addi- 
tion operation in 6502 assembly code. 



01 


*= 


$600 




10 


CLD 




;BINftRY MODE 


20 


LDA 


tt255 


;get 255 


30 


CLC 




;FIR5T ftDDl 


40 


ftDC 


»i 


JttDD 1 TO 255 


50 


STft 


RE5L0 


;5T0RE LOW RESULT 


60 


LDA 


no 


JGET OPl HIGH 


70 


ADC 


»8 


JflDD 0P2 HIGH 


80 


5Tft 


RESHI 


;5ttUE HIGH RESULT 


90 


BRK 




;aLL DONE! 



0108 RESLO »=»+l ;LOW RESULT BYTE 
0110 RESHI »=«+l ;HIGH RESULT BYTE 
0120 .END ;EMD OF ASSEMBLY 



Line 10 clears the decimal mode to make 
sure we're working with binary numbers. 

Line 20 loads 255, the low byte of the first 
operand, into the accumulator. 

Line 30 clears the Carry flag for the first 
add operation. Always remember to clear the 
Carry flag for the first add of a multi-byte 
add operation. 



Multi-byte 

subtraction works 

the same way as 

the single-byte 

version, except 

that the first 

subtract operation 

is preceded by a 

SEC (Set Carry) 

instruction. 



Line 40 adds 1, the low byte of the second 
operand, to the low byte of the first operand. 
This operation will leave a zero in the ac- 
cumulator, and the Carry flag will be set (1). 

Line 50 stores the result of the low-byte add 
in the location labeled RESLO. 

Line 60 loads 0, the high byte of the first 
operand, into the accumulator. 

Line 70 adds 0, the high byte of the first 
operand, to the high byte of the second oper- 
and. Note that we did not clear the Carry be- 



fore this operation, since we want the Carry 
status to be taken into account for all adds 
after the first one. In this case, with the Car- 
ry set, our result is O-l-O-l-l, or 1. 

Line 80 stores the result of the high-byte 
addition in the location labeled RESHI. 

Line 90 stops the execution of the program 
with the BRK instruction. 

Lines 100 and 110 set up the RESLO and 
RESHI storage areas. Note that these areas 
are set up with the low byte first, followed 
by the high byte. This is the standard 6502 
storage format for two-byte values, and it's 
a good idea to get accustomed to it. 

Multi-byte subtraction works the same way 
as the single-byte version, except that the first 
subtract operation is preceded by a SEC (Set 
Carry) instruction. Below is an example of 
the three-byte subtract operation 
$4203F5-$2E45FR When finished, the re- 
sult will be placed in RESL (low order), 
RESM (middle) and RESH (high order). Try 
executing this code and observe that the 
resulting number is $13BDF6. 



01 


»z 


$600 




10 


CLD 




BINARY MODE 


20 


LDft 


a$F5 


GET OPl LOW 


30 


SEC 




FIRST SUBTRACT 


40 


SBC 


«$FF 


SUB 0P2 LOW 


SO 


STO 


RESL 


SAUE LOW RESULT 


60 


LD« 


»$03 


GET OPl MIDDLE 


70 


SBC 


«$45 


SUB 0P2 MIDDLE 


80 


STfl 


RESM 


SAUE MID RESULT 


90 


LDfl 


«$42 


GET OPl HIGH 


0100 


SBC ttS2E 


SUB 0P2 HIGH 


0118 


STfl RESH 


SAUE HIGH RESULT 


0120 


BRK 


ALL DONE! 


0130 


RESL 


»=»+l 


LOW RESULT BYTE 


0140 


RESM 


»=»+l 


MID RESULT BYTE 


0150 


RESH 


«=»+l 


HIGH RESULT BYTE 


0160 


.END 


END OF ASSEMBLY 



What About the Decimal Mode? 

Remember how the 6502 uses two differ- 
ent methods of storing numbers? We have 
been looking at multi-byte operations in the 
binary mode. Multi-byte decimal-mode math 
works exactly like binary, but the data is 
stored in binary-coded decimal. All you have 
to do to select BCD math is use the SED (Set 
Decimal Mode) instruction at the start of your 
program. You can return to binary math at 
any time by using the CLD (Clear Decimal 

SEPTEMBER A.N.A.L.O.Q. Computing 



Mode) 


instruction. 


Now that we've looked at the basics of 


multi-byte math, let's make a few generali- 


zations about the process. 


10 


LDfl BYTElft ;BYTE 1 


15 


CLC JON FIRST ONLY! 


20 


ftDC BYTEIB 


25 


ST« RE5ULT1 


30 


LDft BYTE2D ;BYTE 2 


35 


ADC BYTE2B 


40 


STfl RESULT2 


45 


, 


50 


;ETC. 


55 


, 


60 


LDfl BYTEnd ;BYTE n 


65 


ADC BYTEnB 


70 


STft RESULTn 



The above shows the procedure for a multi- 
byte add, where n is the number of bytes in 
the value. Note that the CLC instruction is 
used only for the first add of the group. 



le 


LDA 


BYTEIA 


JBYTEI 


15 


SEC 




JON FIRST ONLY! 


20 


SBC 


BYTEIB 




25 


STA 


RESULTl 




30 


LDA 


BYTE2fl 


J BYTE 2 


35 


SBC 


BYTE2B 




40 


STA 


RE5ULT2 




45 








50 


, 




JETC. 


55 








60 


LDA 


BYTEnA 


JBYTE n 


65 


SBC 


BYTEnB 




70 


STA 


RESULTn 





The above shows the procedure for a multi- 
byte subtract, where n is the number of bytes 
in the value. The subtract procedure is simi- 
lar to the add in that the SEC instruction is 
only used for the first subtract. 

What happens when you want to add or 
subtract two values of different length, such 
as adding a one-byte value to a three-byte val- 
ue? The program below shows how this is 
done. 



10 


*z 


$500 




15 


CLD 




BINARY MODE 


20 


LDA 


SCORE 


GET SCORE LOH 


25 


CLC 




CLEAR 15T TIME 


30 


ADC 


POINTS 


ADD POINTS 


35 


STA 


SCORE 


SAUE SCORE LOW 


40 


LDA 


SCORE+1 


GET SCORE MID 


45 


ADC 


tte 


ADD DUMMY ZERO 


50 


STA 


SCORE+1 


SAUE SCORE MID 


55 


LDA 


SCORE+2 


GET SCORE HIGH 


60 


ADC 


no 


ADD DUMMY ZERO 


65 


STA 


SCORE+2 


SAVE SCORE HIGH 


70 


BRK 




ALL DONE! 


75 


point; 


»-*+l 


ONE BYTE 


80 


SCORE 


*=*+3 


THREE BYTES 


85 


.END 




END OF ASSEMBLY 



This program adds the one-byte value 
POINTS to the three-byte value SCORE. In 
this example, the three bytes of SCORE are 
not individually labeled, but are referenced 
as SCORE (low order), SCORE -fl (middle) 
and SC0RE-f2 (high order). The +1 and +2 
added to the label SCORE simply indicate 
that the assembler is to add 1 and 2 to the 
address of SCORE for these operations. For 
example, if SCORE is located at $4000, 
SCORE-l-1 is address $4001, and SCORE 4-2 



The subtract 
procedure is 

similar to the add 
in that the SEC 

instruction is only 

used for the 

first subtract. 



is $4002. If we had indicated SCORE-1, the 
address used would be $3FFF. 

By looking at this code, you will see that 
the first ADC operation adds the low byte of 
SCORE to POINTS, placing the result in 
SCORE. This is a typical first add, with a 
CLC operation before the addition. 

The second and third adds are special in 
this case. Since POINTS is a one-byte field 
and SCORE is a three-byte field, we must 
complete the last two additions as if POINTS 



were three bytes long. As you can see from 
the example, the second and third adds sim- 
ply add zeros to the second and third bytes 
of SCORE. This ensures that any carries out 
of the low bytes of SCORE will be properly 
taken care of. By adding zeros, the only fac- 
tor affecting the result is the Carry flag. 



The Challenge 



No tutorial would be complete without a 
challenge to the readers. For next month, try 
to solve the following problems. 

Problem 1: Subtract the two-byte field 
WITHD (withdrawals) from the three-byte 
field OLDBAL (old balance), placing the re- 
sult in the three-byte field NEWBAL (new 
balance). All fields should be stored in BCD 
with standard data-storage formats. Start with 
OLDBAL = 108673 and WITHD = 4285. 
After the subtraction is complete, check 
NEWBAL to be sure it contains 104388. 

Problem 2.-Start with three ten-byte tables. 
Label these tables TABLEl, TABLE2 and 
TABLE3. Initialize TABLEl and TABLE2 as 
follows: 



TABLEl .BYTE $18, Sl8, $40, $86, $3A 

.BYTE SA0,$BC,SC0,$F0,$F8 

TABLE2 .BYTE SOO , $08, $14, S2F, S9A 

.BYTE $90,$0B,$22,$65,$78 



Write the code necessary to subtract each 
byte of TABLE2 from the corresponding byte 
of TABLEl, placing the result in TABLE3. 
That is, subtract the first byte of TABLE2 
from the first byte of TABLEl and place it 
in the first byte of TABLE3. Repeat this pro- 
cess for each of the ten bytes in the tables. 
When complete, TABLE3 should contain the 
values: 

$10,$10,$2C,$S7,$00,$10,$B1,$SE,$8B,$80 



These problems should get you thinking 
about multi-byte operations more deeply. 
Whatever you do, don 't give up\ Stick with 
it and you'll soon get the hang of it. 

Next month we'll start looking at the many 
ways to manipulate our friend, the eight-bit 
byte. Cq 
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^y TNCLIJDES; 

/. •64K COMPUTER 

/ • XG-1 LIGHT GUN 

/ • CX40 JOYSTICK 

^ - 1020 COLOR PRINTER PLOTTER 



$149.95 



_» COMPUTER <<»_P_RINTER <o> PLOTTER « 
» XE GS «» 1025 «» 1020 « 



• 1025 DOT MATRIX PRINTER (80 COL.) 

• BUG HUNT 

• FLIGHT SIMULATOR 

• MISSILE COMMAND 



ALL ITEMS ARE NEW EXCEPT 1025 PRINTER 



w^mM 



$99.95 

wCpjVffyTERw) PRINTER <o> PLOTTER << 
» 1200XL «» 1025 «» 1020 « 

• 1025 DOT MATRIX PRINTER (80 COL.) 

• PAC-MAN CARTRIDGE 

• BASIC WITH TUTOR SET 



y???^?^?????????^?? ^ . 



^ INCLUDES: 

y •64K COMPUTER 

/ 

/> • 1020 PRINTER PLOTTER 

^ALL ITEMS ARE RECONDITIONED EXCEPT 1020 PRINTER 
A 

/ _'l 'JT-T- ?^! Tf. I^_ _T_^"r^ 7" >>_COMPUTER «» PLOTTER « 

/' » 1200XL «» 1020 « 

^ INCLUDES: 

/ •64K COMPUTER 

/ • 1020 PRINTER PLOTTER 

^ ALL ITEMS ARE NEW EXCEPT 1200XL COMPUTER 

A. 



mmvwkM: 



$29.95 



INCLUDES: 



' SLIME 

' CHICKEN 

' BASIC 

'GORF 

• JOURNEY 
TO THE 
PLANETS 

' TURMOIL 

' PAC-MAN 



' INV. TO 

PROGRAMING 
' DONKEY 

KONG 
I BANDITS 
' CLAIM 

JUMPER 
' DELUXE 

INVADERS 




$59 



• BASIC CARTRIDGE 

• PAC-MAN CARTRIDGE 





^ INCLUDES: 



$99 



* 



» 810 « 



A SAVINGS 
OF $30 



<, • 810 DISK DRIVE (RECON) 

<< • DOS 2.5 W/MANUAL 

/, • POWER SUPPLY AND CABLES 



* SPECIAL PRICE AVAILABLE 

ONLY WHEN PURCHASED WITH 

ABOVE SYSTEMS. ONE PER 

SYSTEM ONLY! 



CALL FOR LATEST 
PRICES AND TITLES 

m^BiAwm 



$199 



DOUBLE DENSITY 

DUAL DISK DRIVE 

(2 DRIVES IN ONE CASE) 



iT (smm 



monmoR 

$6995 

RECONDITIONED 



NEW 




XE GS COMPUTER SYSTEM $99 



64K COMPUTER 
XG-1 LIGHT GUN 
DETATCHABLE KEYBOARD 



• 1020 COLOR PRINTER PLOTTER W/PLOTTER 

• FLIGHT SIMULATOR CARTRIDGE FACTORY NEW 

• BUGHUN1^ MISSILE COMMAND 



1020 

Complete with: 

• 2 Pen Sets 

• 1 Roll Paper 

• Power Supply & Cable 

EXTRA PEN SETS 



COLOR PRINTER 
PLOTTER 



$14.98 

' Brand New 

$ .89 (Black) 
$3.98 (Color) 



1200XL 64K COMPUTER 



w/PAC-MAN 



Rccondttloned 



1027 PRINTER 



• 80 Column 

• Direct Connect 

• Letter Quality 



Brand New 



ATTN. DEALERS 

PAC-MAN 

Case of 120 



$69. 



800 48K COMPUTER 

w/PAC-MAN 6C(\ 

' Rcconi 



1025 PRINTER 



•80 Column 

• Dot MaLrlK 

• Friction/Tractor 



$79.98 

KccondltJoned 



DISK DRIVE 



m ^M ^ uit>A UKivii; 

1050 $169. 



800 BOARDS 

• Mother • CPU your choice 

• Power • ROM $8.98 



8Bit I/O Cable . $4.98 



850 Interface ci'TQ QQ 
Serial, parallel ?^l»,-»0 



810 



DRIVES 



$129. 

RccondlUoncd 



1200XL 

NEW 



$69.98 



S.2S" X>ISKLS 

QTY. PWCE 

10 S4.00 

100 .... S29.95 

•1000 .... S200 

MAIORnT ARE UNNOTCHED 

COiVTAlNlNG OLD SOPTWAIiE 



NEW 
DOS XE 



..$9.95 



DOS 2.5 w/manual .. $4,98 



1010 Tape drive $29, 

Inside Atari basic .... $2.95 

101 Tips .-md Trick.s, S2.0,'i 



CARTRIDGES FOR 800, XL. XE 



BASIC CARI'RIDGE $4.95 

BASIC TirroR (2 BOOKS) $4.95 

TUIiMOIL $4.95 

PAC-MAN (no box) $4.95 

DONKEY KONG (no box) $4.95 

GORF (400,800) $4.95 

DEMON ATFACK (400,800) $4.95 

DEUIXE IIWADERS $4.95 

JOURNEY TO THE 1>IJWETS...$4.9S 

STAR liAIDERS $4.95 

MISSI.E COMMAND $4.95 

ASriEROIDS $4.95 

CALAXIAN $4.95 

DEFENDER $4.95 

E.T $4.95 

PAGEMAKER $4.95 



MATH ENCOUNTER . 

DANCE FANTASY 

LOGIC LEVELS 

MEMORY MANOR .... 



$7.98 
$8.98 
$8.98 
$8.98 



DEFENDER 

ROBCrrRON 

TENNIS 

FINAL LEGACY 



LINKING LOGIC $8.98 

CHICKEN $8.98 

CLAIM JUMPER $8.98 

DELTA DRAWING $8.98 

HEY DIDDLE DIDDLE $8,98 

SLIME (400/800) $8.98 

ALPHABET ZOO $8.98 

ALF $8.98 

ADVENTURE CREATOR .. $8.98 

DIG DUG $14.95 

SKY WRITER $14.95 

FOOTBALL $14.95 



.$14.95 
.,$19.98 
..$19.98 
..$19.98 



MARIO BROS. $19.98 

DONKEY KONG JR $19.98 

JUNGLE HUNT $19.98 

MOON PATROL $19.98 

DATTLEZONE $19.98 

FOOD FIGHT $19.98 

ILARDBALL $19.98 

FIGHT IVIGHT $19.98 

ONE ON ONE BASKETBALL ...,$19.98 

DESERT FALCON $19.98 

NECROMANCER $19.98 

RESCUE ON FRACTALUS $19 98 



BALLBLAZER $19.98 

BLUE MAX $19.98 

STAR RAIDERS II $19.98 

DAVID'S MIDNIGHT MAGIC $19,98 

ARCHON $19.98 

KARATEKA $19.98 

CHOPLIFTER $19.98 

GATO $24.98 

ACE OF ACES $24.98 

LODE RUNNER $24.98 

BARNYARD BLASTER [gun req.) .. $24.98 

DARK CHAMBERS $29.98 

AIRBALL $29.98 

SUMMER GAMES $29.98 

CROSSBOW (gun req.) $29.98 

CRIME BUSTERS (gun req.) $29.98 



DIbK but* 1 WARE FOR 800, Ai>, XE 



DAVID'S MIDNIGHT MAGIC . 

REITON 

BANDITS (48K 400.800) 

CLAIM JUMPER 

SYNTREND 

CROSSCHECK 

MISSION ASFEROID 



$4.98 
.$4.98 

$4.98 
.$4.98 

$4.98 

$4.98 
.$4.98 



COMMBAT 

PREPPIE I 

PREPPIE II 

THE COUNT 

DISK 50 (50 GAMES).... 
FREAKY FACTORY 



$4.98 

$4.98 

$4.98 

$4.98 

$4.98 

$4,98 



LASER HAWK. 

ROCKET REPAIRMAN 

ADVENTUREI-AND 

PIRATE ADVENTURE 

SECRET MISSION 

VOODOO CASTLE 

TECHNICOLOR DREAM , 



....$4.98 
■■■■$4.98 
■■•■$4.98 
■'"$4.98 
.'.'.,$4.98 
....$4.98 



STRANGE ODYSSEY 54 gg 

VISICALC $24 98 

BOOKKEEPER W/ num. keypad... 52a98 

otthce;!*. title; s 

.AJvyviiL.jVB le; 
i»r^ssyvsE; c;y\jLr^ 



IN THE UNLIKELY 

EVENT THAT THE 

ITEM(S) YOU 

RECEIVE ARE 

DEFECTIVE, 

PLEASE CONTACT 

US FOR AN RA#. 



I Special buys on 8 BIT Hardware! 



SAN JOSE COMPUTER 



THE 



T A R I 



STORE 



Sunrise Plaza 640 Blossom Hill Rd. Son Jose, CA 95123 
(403)224-8575 • BBS (408) 224-9052 



Light Gun 

For use with pistol 
games on 8-Bit systems 

$34.98 



Light Gun Package 

Includes: 
' Light Gun Ci 

• Crime Busters V 

• Crossbow 

• Barnyard Blaster 



109. 



SHIPPING: ADD $5.00 TO ALL ORDERS. AIR AND INTERNATIONAL SHIPPING EXTRA. THATS IT. 

WARRANTY: 90 DAY WARRAN'IY ON AI.L ITEMS. TAX: CALIFORNIA RESIDENTS ADD 7% SALES TAX. 

PREPA-yMENT: USE VISA, MASTlTiRCAiyD, MONEY ORDER. CASHIER'S CHECK OR PERSONAL CHECK. 

PERSONAL CHECK MUST CLEAR PRIOR TO SHIPMENT. C.O.D.: CASH, CASHIER'S CHECK OR M.O. ONLY. 

Prices subject to change without notice. Brand and/or product names are trademarks or registered trademarks of their respective holders. 

Ad produced on an ATARI ST using I^ibllslilu^; i'artner and printed on an ATARI SLM804 PostScript compatible laser printer. 



CIRCLE #102 ON READER SERVICE CARD. 



B&C . 

ComputerVisions 



3257 KIFER ROAD 

SANI'A CLARA, CA 95051 

(408) 749-1003 

(408) 749-9389 FAX 



A 



STORE HOURS 

TUE- FRI 10am - 6pm 

SAT - lOain - 5pm 
CLOSED SUN- MON 



SOO/ JC Z^/ X E SOET WjV RJ3: 

ALL TITLES ON DISK 



17. 
9. 

7. 

7. 

7. 

31. 



ENTERTAINMENT 

12 ADAMS ADVENTURES .. 14. 

.\LTANTS 26. 

ALT. REALITY CITY 2G . 

ALT . REAL DUNGEON 26 . 

ASSULT FORCE 19 . 

AUTO DUEL J5. 

BEYOND CASTLE WOLF. ... 14. 

BISHARK 2(i. 

HOP *. WRESTLE 26 . 

BORDTNO:lB12 22. 

BOULDERDASH CONSTR.SET 17. 

BRUCE LEE 17 . 

CASTLE WOLFENSTEIN. ... 14. 

CHAMP. LODE RUNNER ... 26. 

CONFLICT IN VIET NAM 

COSMIC TUNNELS 

DRUG 

DALLAS QUEST 

DELUXE INVADERS .... 

F-15 STRIKE EAGLE . . 

FIGHT NIGHT 17 , 

GAUNTLET (64K) 31, 

DEEPER DUNGEONS 22, 

GREAT AMER.ROAD RACE , 22 

GUNSLINGER 26 

HARD HAT MAC 7 

JAWBREAKER 9 

KARATEKA 13 

KENNEDY APPROACH 17 

KNICKERBOCKERS 13 

KORONIS RIFT 13 

LAST V-8 8 

L.A. SWAT/ PANTHER .... 8 

LEADERBOARD 13 

LODE RUNNER 13 

MICROLEAGUE BASEBALL.. 35 
NAPOLEON AT WATERLOO . 22 
MONTEZUMA'S REVENGE... 14 

MODSEOUEST 17 

MOON SHUTTLE 7 

NATO COMMANDER 1? 

NIBBLER 12 

NINJA 8 

OGRE 26 

OIL'S WELL 9 

O'FTLEY'S MINE 9 

PIRATES OF BARB. COAST 22 
PITFALL/DEMON ATTACK . 13 

PREPPIE Ifill 9 

RESCUE ON FRACTALAS... 13 
ROME & THE BARBARIANS 1? 

SILENT SERVICE 31 

SOLO FLIGHT 17 

SPEEDKING 8 

SPITFIRE 40 31 

STARFLEET I 44 

STAR RAIDERS TI 17 

SPY VS. SPY III 17 

STOCKMARKET . 22 

STRIP POKER 2G 

SUMMER GAMES 17 

TAX DODGE 9 

TEMPLE OF APSHAI 9 

THE HULK 5 

TOMAHAWK (64K) 26 

TRAILBLAZER 26 

ULTIMA II 35 

ULTIMA III 35 

ULTIMA IV 53 

UNIVERSE 44 

VJINTER CHALLENGE 13 

ZAXXON <400/800) 13 



PROGRAMMING 

ACTION I 71. 

ACTION! TOOLKIT 2G. 

BASIC XL 53. 

BASIC XL TOOLKIT 26. 

BASIC XE 71. 

DIAMOND (GEM O/S) .... 69. 

DOS 2.5 7 . 

DOS XE 10. 

DISK I/O 26. 

KYAN PASCAL 62. 

LIGHTSPEED C 35, 

LOGO 29. 

MAC/6 5 71, 

MAC/65 TOOLKIT 26, 

PILOT 19, 

SPARTA DOS X 71, 



.95 
.95 
.95 
.95 
.95 
.95 
.50 
.50 
.95 
.50 
.95 
.50 
.95 
.95 
.50 
.95 
.95 
.95 
.50 
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PRODUCTIVITY 

ANIMATION STATION .... 89. 

ATARIWRITER 29. 

ATARIWRITER (CART ONLY) 19. 

ATARIVmiTER+ 44 . 

ATARI BOOKKEEPER 24. 

ATARI MUSIC II 14. 

AWARDWARE (1050) 11. 

BANK STREET WRITER. ... 14. 

BLAZING PADDLES 31. 

COMPUTE YOUR ROOTS ... 35. 

DATAMANAGER 8. 

ELECTRONIC CHECKBOOK . 8. 

FAMILY FINANCE 6. 

GUITAR WIZARD 26. 

HOME ACCOUNTANT 19. 

HOME BASE 12. 

HOME FILING MANAGER. . 6. 

HOMEPAK 24. 

INVENTORY MASTER 80. 

LETTER WIZARD 29. 

MONEY MANAGER 8 . 

MUSIC CONSTRUCTION SET 13. 

NEWSROOM (1050 - 64K). 44. 

NEWS STATION 26. 

NEWS STA. COMPANION. . 26. 

PAGE DESIGNER 26. 

PAINT 12 . 

PRINT POWER (1050).... 13. 

PRINTKIT (1050) 13. 

PRINTSHOP 34. 

P.S. COMPANION (64K) . 24. 

P.S.GRAPHICS LIBRARY 1 17. 

P.S.GRAPHICS LIBRARY 2 17. 

P.S.GRAPHICS LIBRARY 3 17. 

PROOF READER 17 . 

PUBLISHING PRO 35. 

RUBBER STAMP 26. 

SYNTREND 14 . 

SUPER MAILER 35. 

THE LOTTO PROGRAM .... 17. 

TIHEWISE 6. 

TURBOWORD/80 COLUMN 

REQUIRES XEP80 44. 

VIDEO TITLESHOP (64K). 26. 

GRAPHICS COMPANION. 17. 

VIRTUOSO 29. 

VISICALC 24 . 



22.50 
22 . 50 
22 . 50 
22.50 

14.95 



8.95 



EDUCATION 

ATARI LIGHT MODULE 

(REQ. STARTER SF/F) . 

BUZZVJORD 

GRANDMA'S HOUSE {"10) 
HEY DIDDLE (AGE 3-10) . 
LINKWORD: SPANISH .... 

LINKWORD: GERMAN 

LINKViORD: FRENCH 

LINKWORD: ITALIAN .... 

MASTER TYPE 

STATES AND CAPITALS . . 

TOUCH TYPING 

QUIZ MASTER CONSTR. . . . 
QUIZ MSTR. USA CONSTR. 
AMEHICAH EDUCATIOH: 

A+ UIOIX)GY GlOi .... 17.95 

Al GERMAN 17.95 

A+ GRAHHER G4+ 17.95 

A+ LERN TO READ Cl-4 35.95 
A+ READING COMP GIS 35.95 
A+ SCIENCE G3-4 .... 17. 95 
A+ SCIENCE G5-6 .... 17.95 
A+ SCIENCE G7-8 .... 17.95 

A+ SPANISH 17.95 

A4 SPELLING G2-8 ... 35.95 

A+ U.S. GF:0G. G8 + 

A I U.S. GOV. ClOf 

A+ U.S. HIST. G5+ 

A+ VOCABULARY G4t. 

A-f WORLD GEOG. GR+ 

A+ WORLD HIST. G8t 

(G = GRADE LEVEL) 
CBS (AGE 3-6) : 

ASTRCK; ROVER 

BIG BIRD SPEC DELIVE 
ERNIE'S MAGIC SHAPE. 
DAVXDSOH: 

MATH BLASTERS Gl-6 . 
SPELL ITt AGE 10 
DESIGHWARE: 

MATHMAZE (611) 
MISSION ALGEBRA (lJ+)li.50 
SPELLICOPTER (6-11). 26.95 
TIHK TOHK (AGE 4-6) : 

ABC'S a. 95 

COUNT AND ADD 

SMART THINKER 

SPELLING 

SUDTRACTION 

THINKING SKILLS . . . 
ALL 6 TINK TONKS . 
UHICOHH: 

10 LITTLE ROBOTS 

(PRE-SCFIOOL) .... 
FUN BUNCH (6-ADULT) 
RACECAR RITHMETIC 

(AGE 6+) 

WEEKLY EEADEE (PRE SCHOOL); 
STICKY BEAR SHAPES . 26.95 
STICKY BEAR NUMBERS. 26.95 
STICKY BEAR ABC'S .. 26.96 
STICKY BEAR OPPOSITE 26.95 
Sn BASKET BOUNCE ... 26.95 
STICKY BEAR BOP .... 26.95 

RUN FOR IT 26.95 

PIC BUILDER 26.95 

* jf! ^! H: :It * :li Mt ^: * M: «: :if Ax a: «: ^! si! si! 

WE CARRY A FULL 
r.TNE OF SOFTWARE 
FOR THE 520/ 1040 AND 
MEGA ST COMPUTERS. 



17.95 
17.95 
17.95 
17.95 
17.95 
17.95 



8.95 
8.95 



44.95 



26.95 



n.9 5 
8.95 
8.95 
8.95 
0.95 
39.95 



26.95 
26.95 



26.95 



ALL TITLES ON CARTRIDGE 



ENTERTAINMENT 

3D TIC- TAG -TOE 9.9 

AIRBALL (XL/XE) 24.9 

ALIEN AMBUSH 9.9 

ACE OF ACES .(XL/XE) . 24.9 

ARCHON 19.9 

ASTEROIDS 15.9 

ASTRO CHASE 14 . ^ 

ATARI TENNIS 9.^ 

ATLANTIS 14. ^ 

BALL BLAZER 19.'; 

BARNYARD BLASTER .... 24. ^ 

BATTLEZONE 19. <; 

B.C. QUEST FOR TIRES 19 . f; 

BLUE MAX 19 . t; 

BOULDERS & BOMBS .... 14.? 

CAVERNS OF MARS 14 . ? 

CENTIPEDE 14.? 

CHICKEN 9.C 

CHOPLIFTER 14 . ? 

CLAIM JUMPER (400/800) 9.? 

CLOUDBURST 9.< 

COBRA 14.? 

CRIME BUSTER 24 . < 

CROSSBOW 24 .t 

CROSSFIRE 9.f 

CRYSTAL CASTLES (XL/XE) 19 . ' 

DARK CHAMBERS (XL/XE). 24.'. 

DAVIDS MIDNIGHT MAGIC 19.* 

DtlFENDER 14.* 

DELUXE INVADERS 1 .\ 

DESERT FALCON 19 . ' 

DIG DUG 19 . I 

DONKEY KONG 5.( 

DONKEY KONG JR 19.' 

EASTERN FRONT (1941). 19.' 

E.T. PHONE HOME 9.! 

FIGHT NIGHT 19.' 

FINAL LEGACY 19.' 

FOOD FIGHT (XL/XE)... 19.' 

FOOTBALL 14.' 

FROGGER 14.' 

GALAXIAN 9.' 

GATO 24.' 

GORF (400/800) 5.1 

GYRUSS 14.' 

HARDBALI, 19.' 

INTO EAGLES NEST ( XL/XE ) 19 . ' 

JOURNEY TO PLANETS .. 9.' 

JOUST 1'^ 

JUNGLE HUNT 19 

KABOOMl 14 

KARATEKA 19 

KRAZY ANTICS 14 

LODE RUNNER 24 

MARIO BROS 19. 

MEGAMANIA 9. 

MILTJPEDE 14 . 

MISSILE COMMAND 5 . 

MOON PATROr 19 . 

MR . COOL 9 . 

MS . PAC MAN 19 . 

NECROMANCER 19. 

ONE ON ONE (XL/XE) ... 19, 

PAC MAN 5 . 

PENGO 19 . 

PLATTERMANIA 9. 

POLE POSITION 19. 

POPEYE 14 . 

0-DERT 14. 

OIX 14. 

RESCUE ON FRACTALAS . 19 . 

RETURN OF THE JEDI .. 14. 

ROBOTUON: 2084 19 . 

SKY WRITER 14 . 



.95 
.95 
.95 
.95 
.95 
.95 



SLIME (400/800) 

SPRINGER 

SPACE im'AUEHS 

STAR RAIDERS 

STAR RAIDERS II 

SllBMARINEE COMMANDER 
SUMMER GAMES (XL/XE). 

SUPER BREAKOUT 

SUPER COBRA 

THUNDERFOX 

TURMOIL 

VJIZARD OF V.OW 



5.00 



PRODUCTIVITY 

ATARIWRITER 29 . 95 

FUN VJITH ART 14 .95 

MICROFILER 22 . 50 




EDUCATION 

MATH ENCOUNTERS 9.95 

FISHER PHICE (PRE SCHOOL): 

DANCE FANTASY 8.95 

LINKING 1/JGlC 8.9'i 

LOGic LEVELS 8-95 

MEMORY MANOR 8.95 

SPIHHAKEH (AGE JIU): 

ALF IN COLOR CAVES . 9.95 

AI,PHABET ZOO 9 . ')5 

DELTA DRAWING 9.95 

FACEHAKER 9.95 

KIDS ON KEYS 9 .95 

KINDERCOMP 9 .95 

STORY MACHINE (XL/XE) 9.95 

(AGE 7 - ADULT) : 

ADV. CREATOR ( 400/800 ). 9 . 95 

FRACTION FEVER 9.95 

(• = REO. LIGNT GUN) 

■Ai H ^: Ai Ai A? :f! ;[= ;!= * :l! A- 'A- -A.- A- A- A- A- A- 

SPECIAL VALUE 

PAC-MAN ANDQIX 

CARTRIDGES 

IN SPECIAL STORAGE. 

CASE 

ALL FOR ONLY 

$9.95 

* * * * * * * * * * * * » * * :!: * * -i- 

SPECIAL PRICE 

ATARI 

XE GAME M ACHING 

NOW ONLY 

$99.95 

LIMITED TIME ONLY 






Jl 



800 (48K) 
COMPUTER 

$79.95 

400 (16K) 
rOMl'llTKR 

$29.95 



SPACE AGE 
JOYSTICK 

$5.00. 

ATARI 
TRACKllAM. 

$9.95 



10.10 MODEM 
WITH EXPRESS! 

$24.95 

1010 PROGRAM 

RECORDER 

$29.95 



1020 COLOR 
PRINTER/ PLOTTER 

$19.95 

(new in box) 

40 COLUMNS WIDE 

INC. PENS, PAPEH, ETC. 



ATARI 
HOOKKEEPER 

$14.95- NO BOX 

ATARI 

NUMERIC 

KEYPAD $7.95 



DISKETTES 
AS LOW AS 20 CENTS 

10 FOR S4.00 

100 rOR $29.95 

1000 FOR S200 

MO.ST ARE UN.N'OI (.111:1) 

WITH OLDSOITVVAKK 



SHIPPING INFORMATION ■ Prices do nol include shipping and handlinf. Add $.i.00 for small ilems ($8.00 Min. for Canada). Add $8.00 for disk drive. Add S2.75 for C.O.lJ. 
Ciilif. res. inchule 7'rp sales tax. Mastercard and Visa accepted if yonr telephone is listed in your local phone directory. Orders may be pre-paid with money order, cashier 
check, or personal check. Personal checks are held for three weeks before order is processed. C.O.i:) orders are shipped via UP.S and must be paid with cash, cashier check or 
money order. Int ernalional and APO orders ninst be pre-paid with cashier check or money order. $20.00 niinitnnm on all orders. All sales are final - no refunds - prices are 
subject to change . 

Phone orders acceptetd TUESDAY THROUGH FRIDAY Irom 10:00 am to 6:00 pm PST. 
We carry a full line of ATARI products - large public domain library - write or call for free catalogue 



PRICES SIIB.IECT TO CHANGE WITHOUT NOTICE - ALL SALES ARE FINAL 
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Reviewed by Matthew J.W. Ratcliff 

Crossbow is a swashbuckling graphics ad- 
venture that is played with the Atari light gun. 
Like Robin Hood, you lead a band of merry 
friends on a quest to recover treasures stolen 
by the Evil Master. As you and your friends 
trek across eight detailed scenes, the Evil 
Master sends hoards of creatures to dispatch 
you. With the aid of your trusty crossbow 
(light gun) you can vanquish the foes, pick 
up new friends (extra lives) and discover the 
path to the final battle within the castle hall. 

The original Crossbow is a coin-op video 
game from Exidy, copyrighted 1983. The 
Atari version was completed and copyright- 
ed in 1988 by Atari Corp., developed by 
Sculptured Software Inc. Since I have never 
played the coin-op original, I cannot give you 
a direct comparison. 

The graphics are quite good, although I 
have seen better. The screens remind me of 
Koala pictures, with little or no special ef- 
fects for added shading, details or depth. The 
screens seem "flat," but they are plenty 
detailed and the animation of the characters 
is smooth and predictable. I like the sound 
effects of Crossbow, especially the digitized 
one of the scream when one of your friends 
is decimated by the enemy. 

The game begins with a parchment map 
display. The eight areas to be traveled are dis- 
played as graphic images. Your adventurer is 
displayed to the left center of the screen, and 
at the bottom are red and green (and some- 
times blue) flashing boxes. You must shoot 
one to select your path. The color chosen de- 
termines the path you'll take to the next ad- 
venture scene. You may waste some time 
traveling back and forth between the same 
areas before you learn the proper color se- 
quence to travel through all seven treasure and 
adventure screens and on to the eighth and 
final battle screen in the castle hall. When 
the path is chosen, a dashed line is traced out 
from your current location to your next fight. 

SEPTEMBER A.N.A.L.O.Q. Computing 



You may end up at the cactus for a chal- 
lenge in the desert. The display is open 
desert, with cacti scattered all about and 
mountains in the distance. Your three friends 
will begin walking across the screen, left to 
right, spaced about Va- to %-screen apart. As 
they walk, they are beset upon by vultures, 
ants and scorpions. You must shoot them with 
the trusty crossbow before a friend gets 
killed. If all your friends die, the game ends. 
Rabbits, snakes and the Master's evil eye may 
be shot for extra points. The first traveler to 
make it across the display usually picks up 
a treasure for more points. Help all your 
friends across the desert in order to advance 
to the next stage of the adventure. The first 
time each screen is completed (except for Vil- 
lage and Castle scenes) an extra friend joins 
you, providing another "life" to help you 
through the game. 

A trek through the caverns requires that 
you shoot hanging stalactites to plug holes in 
your friends' path. Bats, a ghost and falling 
stalactites must also be eliminated. This is 
one of the most challenging sites to complete. 

In the Volcano phase, lava rocks must be 
burst above your friends' heads. A large 
standing stone must be shot to make a bridge 
across a lava river. With only one basic ob- 
stacle (the lava rocks) to worry about, this is 
an easy level to complete with a steady hand 
and concentrafion. 

The Jungle is nasty. There are two small 
pits your friends can safely walk across, so 
long as you don't allow the man-eating plants 
to grow up from them. You cannot concen- 
trate too much on those nasty flowers though, 
because there are banana-tossing monkeys 
and ornery toucans fiying from the trees 
above. With practice— and a careful eye on 
the plants— this screen can be mastered. 

The Village, haunted by many evils, is a 
witches' haven. Ghosts fly out to bash your 
friends. Warlocks appear on the rooftops and 
rain fireballs on you. Lightening bolts are a 



REVIEW 

CROSSBOW 



Atari Corp. 

1196 Borregas Avenue 

Sunnyvale, CA 94086 

(408) 745-2000 

XL/XE cartridge: $34.95 



constant threat. Gangsters shoot from the 
windows of the houses, evil faces pop up 
everywhere. You need to shoot out the street 
lights so darkness will provide some cover 
for your friends. You'll be lucky to get all 
your friends through this phase. 

Down at the River, you simply have to es- 
cort your friends across a bridge while avoid- 
ing the pterodactyls and bouncing boulders. 
The myriad other creatures on this screen, 
such as trolls and alligators, can be blasted 
for bonus points. This phase is not as easy 
as it might seem. 

At the Drawbridge, the entrance to the cas- 
tle, you must first shoot the ropes holding the 
door up. It will lower across the moat, allow- 
ing you to enter. Watch for deadly archers 
along the ramparts of the castle. 

Once you have conquered all seven prelimi- 
nary screens, you have to choose the correct 
path to finally enter the Castle Hall and shoot 
the Evil Master while his eyes are glowing 
red. If you complete the game, it starts over 
again for a repeat of the challenge. 

Gun accuracy is imperfect but livable. If 
the light gun is held near the display, you find 
that it shoots slightly to the left, just as in 
Atari's Bug Hunt. It isn't a particular prob- 
lem with Crossbow, however, since you have 
unlimited shots with no penalty. That, cou- 
pled with the fact your crossbow is a rapid- 
fire unit (hold down the trigger for continu- 
ous firing), makes the game playable despite 
the minor inaccuracy. 

Crossbow is a good light-gun game. The 
graphics are a bit blocky, but well done over^ 
all. Playability is good and the sound effects 
are entertaining. This game will definitely 
make a nice addition to anyone's light-gun 
game collection. 

Matthew Ratcliff, a frequent contributor 
to ANALOG Computing, lives in St. 
Louis, Missouri, with his wife and two 
children. PI 
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DIAMOND 
GRAPHICS 
OPERATING 
SYSTEM 

Reeve Software 

29W 150 Old Farm Lane 

Warrenville, IL 60555 

(312) 393-2317 

Disk version: $29.95 

Cartridge version: $79.95 

Reviewed by James F. Patterson 



I remember the first time I saw a GEM- 
type operating system on the Apple Macin- 
tosh, with its menu, icons, and point-and-cliclc 
replacement for typed commands. I was sure 
at that time I was seeing the future, sure that 
this was what was going to bring computing 
to the masses. I was also convinced that this 
meant the end of the 8-bit computer line. 
Then in May 1986 1 saw a magazine display- 
ing the GEOS system from Berkeley Soft- 
works. At last this GEM-type desktop 
operating system was available on a 6502 
8-bit machine, even though it was on the 
Commodore 64. 1 knew it was only a matter 
of time before it would be available on the 
Atari 8-bits. Little did I know that it would 
be two and a half years. 

There are, as I write this, two new GEM- 
type operating systems available for the 8-bit 
Atari line of computers: Diamond OS from 
Reeve Software, distributed by USA Media, 
which we'll be examining here, and GOE 
from Total Control Systems. 



An introduction 



First, in case you are new to computing or 
you've been living in a cave for the last few 
years, the GEM-type operating system con- 
sists of an easy-to-use and-learn operating 
environment with icons, windows, drop- 
down menus, dialog boxes and a pointer 
(mouse). As I stated, these have been avail- 
able for some time on other, more expensive 
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systems like the Atari ST, Apple Macintosh, 
Commodore Amiga, and even the IBM XT 
computers. 

These new graphic-oriented operating sys- 
tems are, unlike many of the improvements 
in the 8-bit world, not hardware enhance- 
ments; in other words, you aren't required to 
open your computer and remove chips or cut 
tracings on the circuit boards. They use the 
bank-select cartridges made popular by ICD 
(except the disk version of GOS); therefore, 
they should work on all 8-bit Atari com- 
puters. Before we look at the operating sys- 
tem, let's first get acquainted with a few of 
the terms used. 

Desktop: The screen display. 

Icons: Graphic representations, images or 
objects used to show a file or utility on the 
screen or monitor. 

Menu: As the name implies, a display list- 
ing choices or functions from which the user 
may select. 

Pointer: Used by the operator to make 
menu selections. This can be any input de- 
vice, such as a mouse, joystick, trakball, light 
pen, or even a keyboard used to move the cur- 
sor around on the display screen. 

Window: A rectangular section or area of 
a display screen that is dedicated to a specif- 
ic activity or application. Windows allow the 
screen to display more information than one 
screen allows. Think of them as a screen 
within a screen. 

Dialog box: An on-screen tbmi that prompts 



the user for information and allows the input 
of that information. 

An overview 

The Diamond Graphics Operating System 
is a great implementation of the GEM-type 
operating system on the Atari 8-bit com- 
puters. The desktop is available in two for- 
mats: The disk version, which requires 64K 
of RAM, supports DOS 2.5. The piggyback 
super cartridge version, which requires only 
48K of RAM, also includes the Diamond 
Programmer's Kit. The cartridge, according 
to the manufacturer, supports most Atari 
DOS systems, including the new Atari DOS 
XE and Sparta DOS X. Like the ST, GOS 
performs the following functions: 

1.) Time/Date DOS support. 

2.) Folder support, including deleting a 
folder file. 

3.) Exit to Basic; just type DOS to return 
to the desktop. 

4.) Added icons, like a stop sign after com- 
mands with "Are you sure?" in a dialog box 
before manipulating files. 

5.) Multiple-window handling; the title bar 
of the current window is highlighted. 

6.) Window sliders; these allow the user to 
choose the size of the on-screen window 
display. 

7.) Compatibility with all DOS systems 
(cartridge version only). 

8.) Print or show disk files from the 

SEPTEMBER A.IM.A.L.O.Q. Computing 



desktop. 

9.) Multiple-file deleting and copying 
(Tagging). 

10.) Direct icon-to-icon disk copying; just 
click on one icon and drag to the other. 

11.) Direct window-to-window file copying 
and deleting. 

12.) Auto saving of window positions us- 
ing one or two windows. 

13.) Window-full reversing. 

14.) Command line files. 

15.) Memory expansion support up to 16 
megabytes. 

As can be seen from the above list, almost 
every need has been foreseen and met by the 
system developers. I, on the other hand, can- 
not verify all the features mentioned, as I was 
furnished with the disk version of GOS and 
don't own an extended-memory machine. I 
can tell you, however, that the version I 
worked with seemed to do all that the authors 
promised and was quite impressive. 

The Diamond GOS supports all available 
cursor-movement devices, with selection 
made at the graphics configuration screen. 
To choose the preferred device, the user sim- 
ply clicks on the device icon and the ap- 
propriate driver is installed. The available 
drivers include joystick, ST mouse, Touch 
Tablet and trakball. This procedure is repeat- 
ed for the desired memory-expansion driver 
for those 8-bit users with memory expansions 
of 256K or more. 

Once the desktop is set up for your system 
(i.e. the number of drives and the system 
icons are placed as you want them on the 
screen, and you've set your preference for 
Text or Icons for file display when the win- 
dows are open), you then save your desktop 
to disk. Once done, the desktop comes up this 
way every time you boot your system. This 
feature gives you the option of different 
setups for different system configurations. 



The desktop 



Upon booting up the system, you are greet- 
ed with the GOS desktop, named for its 
similarity to the office desktop. You have file 
cabinets with drawers that open and close as 
you open and close files (in this case, the 
directory for the disks), the desktop work sur- 
face area, and a trash can tor garbage dis- 
posal. The visual elements of the desktop are 
the menu bar along the top of the screen, the 
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icons for the disk drives as set up (described 
earlier) by the user, the trash can and the cur- 
sor or mouse pointer. Moving or dragging the 
mouse pointer across the menu bar shows you 
the options available by highlighting each 
heading (Desk, File, Disk and Option), each 
with its own drop-down menu containing 
more options. 

Disk icons are represented by the picture 
of a file cabinet, the drawer of which opens 
when you choose one of the disk icons. When 
you activate a disk icon, a window opens dis- 
playing the directory of that disk. At this 
point you move the mouse pointer to the 
desired file and double-click (press the in- 
put device's trigger twice quickly). The file 
is then opened. 

It should be stated here that the mouse 
pointer may also be moved around the desk- 
top with no input device by using the four ar- 
row keys and substituting the space bar for 
the fire button on a joystick device or the but- 
ton on the mouse. 



The specifics 



The mouse is used to make most of the 
choices with GOS. There are two ways to 
make a selection. The first is to move the 
mouse pointer (cursor) to a menu on the 
screen. You can then double-click to both 
choose that option and open it. Second, you 
can move to the menu and single-click; that 
is, hit the button once then move across the 
menu bar to FILE, where a drop-down menu 
appears. You then single-click on the OPEN 
command. The method is entirely up to you. 

To copy a disk with GOS, you move the 
mouse pointer across the menu bar at the top 
of the desktop to the DISK option, which 
causes a drop-down menu with the choices 
of DUPLICATE and FORMAT to appear. 
After choosing DUPLICATE, a dialog box 
appears that asks you for the source and des- 
tination disks, and whether or not the desti- 
nation disk needs to be formatted. You then 
either proceed by clicking on OK to continue 
or CANCEL to go back to the desktop. 

To copy a file, you double-click on the 
desired source disk— or use the single-click 
method as described above— to display the 
files on that disk, then move the mouse point- 
er to the desired file, click, and drag it over 
to the destination disk icon. It should be not- 
ed here that the disk drives are no longer re- 



ferred to as Dl: and D2:, etc. GOS uses the 
method used on most major systems; that is 
Dl: is now A:, and D2: is B:. 

The re-sizing of a window can be done in 
two ways. You may fill the entire screen with 
the window by clicking the mouse pointer on 
the button found in the window's upper right- 
hand corner. To change the window's size to 
something other than full screen, you can use 
the mouse pointer to drag on the button found 
in the window's lower right-hand corner. You 
can drag the window's corner in any direc- 
tion, making the window wider, narrower, 
taller or shorter. When re-sizing a window, 
you will see a flashing outline of the window 
as you drag it. This outline shows the size 
that the window will be when you release the 
mouse button. Sizing of windows is impor- 
tant when you want to copy a file from one 
drive to another. 

The grid at the top of the window is where 
you click and drag to reposition the entire 
window in the desktop. The button in the up- 
per right-hand corner of the window is the 
same as the CLOSE option under the FILE 
selection of the desktop menu bar. This closes 
the window and puts you back in the desktop. 

The trash can icon is used to delete files 
when they are no longer needed. To do this, 
you simply click on a file and drag it to the 
trash icon. If, at this point, you have the 
CONFIRM option active under the OP- 
TIONS menu (which, in my opinion, should 
always be active), a DIALOG box appears 
and asks 'ARE YOU SURE?" You then 
choose either OK to delete the file, or CAN- 
CEL to return to the desktop. If, on the oth- 
er hand, you make an accidental choice, you 
simply move out of the window or away from 
the icon and single-click. The choice is can- 
celled. 



Conclusion 



I consider Diamond GOS a significant de- 
velopment for the 8-bit line of Atari com- 
puters. No 8-bit Atari user should be without 
it. 

Jim Patterson is a former product support 
representative for Texas Instruments. He 
holds a degree in electromechanical en- 
gineering and is currently working toward a 
degree in computer science. He has been an 
avid Atari user since 1981. (^ 




The new XF551 drive is probably the 
best thing that's happened to Atari's 
8-bit computer line since the birth of 
the 130XE. But it also follows what 
seems to be normal Atari policy in 
that it comes with an ancient DOS and no 
documentation of the new features (true dou- 
ble density, double-sided, high-speed) what- 
soever. Which in effect means that if you 
don't want (or can't get) the new DOS XE, 
you're stuck with what amounts to a slightly 
faster 1050 in a new housing. 

So when I got my new XF551 drive, the 
first thing I did was take a deep dive into the 
file-management system to see if I couldn't 
somehow use, in my own programs, some of 
the new features. The following is the result 
of my explorations. 

I must warn you, though, that this is fairly 
complicated stuff and best suited for the hard- 
core Atari addict. If you want to know more 
about using the SIO commands, I can't do any 
better than to direct you to previous 
ANALOGS and the Master Memory Map. 



by Jerry van Dijk 

new name, I will explain its meaning and 
put "NEW" after its value or offset. In 
naming them, I tried to stay as close to the 
standard Atari naming conventions as 
possible. 

The SIO interface 

The SIO (Serial Input Output) system is 
the last link between the operating system 
and the XF551. Communicating with the 



write a sector, etc. More information about 
SIO and the DCB can be found in the Mas- 
ter Memory Map. 

The new features 

To control the new features, the XF551 
adds two new commands to the list of SIO 
commands. The new commands are 
GETREC (GET' drive set-up RECord, 
$4E, NEW) and PUTREC (PUT drive set- 



Since all the XF551 commands and offsets 

mentioned are new, there are no fixed 

names for them yet. 



Conventions 



Since all the XF551 commands and off- 
sets mentioned below are new, there are no 
fixed names for them yet. I was therefore 
forced to make up my own. When I use a 



drive will therefore, in practice, mean set- 
ting up a Device Control Block (DCB) with 
the proper information and calling the SIO 
system through its vector (SIOV, $E459). 
This way, you can format a disk, read or 



up RECord, $4F, NEW). These commands 
will read or write a DRVREC (DRi'Ve 
RECord, NEW). The 12 bytes that make 
up a DRVREC are the real secret behind 
the new features of the XF551. 
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The DRVREC format is (all names: 
NEW): See Figure 1 

NOTE: DRVREC uses a high-byte first 
format 



Explanations 



DRVTRC: This byte specifies the number 
of tracks. Normal value is $28, which means 
the disk contains 40 tracks. 

DRVSTP: Defines that the step rate is the 
time the drive needs to access a new sector. 
In other words, how long it takes to execute 
a command. Normal value is $0000. I've put 
in the question marks to indicate that I have 
no information on other possible values. 

DRVSEC: The number of sectors on a 
track. Values here are $12 for an 18-sector 
single-density disk or $1A for a 26-sector 
dual-density disk. 

DRVSID: The number of sides used. The 



$00 stands for single-sided operation, $01 for 
double-sided. To format a disk on both sides, 
simply set the DRVSID to 1 and issue an SIO 
format command. You can access the extra 
sectors on the second side through SIO. The 
drive numbers these sectors consecutively. So 
if you formatted the disk double-sided, 
single-density, the last sector on side one is 
number 720, and the first on the second side 
is 721. 

DRVDEN: The density used. Possible 
values are $00 for single-density (DOS 2.0) 
and $04 for double-density (DOS 2.5). 

DRVBYT: The number of bytes in a sec- 
tor Normally, this is $0080 for 128 bytes/sec- 
tor. In double density, you set the value to 
$0100 for true 256-byte sectors. In the latter 
case, you have under any 2.X compatible 
DOS 253 data bytes a sector. As with nor- 
mal 128-byte sectors, the last three bytes are 
used by DOS for its own bookkeeping. 

DRVSEL: Set the drive-select number If 



NAME 



USAGE 



OFFSET 



VALUES 




FIGURE 1 



you booted from the XF551, this will normal- 
ly be 1. This byte gives you the possibility 
of overriding the drive-select switch. 

DRVSER: Controls the baud rate used in 
communication between SIO and the XF551. 
Its default value is $41 (on a E^L system). 
In theory you can speed up disk access by 
increasing the drive's baud rate. But to syn- 
chronize with SIO you would have to modi- 
fy its timing values also. There is, however, 
no information yet about the values possible. 

DRVMSC: These two bytes ($0000) seem 
to serve no useful purpose yet. They're prob- 
ably here for compatibility reasons or future 
extensions. 

Usin^ the new commands 

Use of the DRVREC is fairly straightfor- 
ward. With the new DCB GETREC com- 
mand, you read the drive record in a buffer 
somewhere, modify the bytes for the new 
setup and finally write the record back to the 
drive with the PUTREC command. That's all 
there is to it. 

It would be wise, in a practical program, 
to issue a disk status call (DSKINV, $E453) 
after changing the DRVREC. If all went well, 
the DCB status byte (STATUS, $30) will con- 
tain the value of 1. 

Conclusion 

There is, of course, nothing final about the 
data given above. The final word can only 
come from Atari, if and when they'll decide 
to publish the XF551 full-interface specifi- 
cations. In the meantime, however, you have 
at least a starting point for using the full pow- 
er of the XF551— and for exploring new, as 
yet unseen horizons on your Atari. 

Jerry van Dijk uses his Atari both as a 
study tool and for recreation. His main in- 
terests are system-level programming and the 
use of computers in the practice of law. H 
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by Frank Cohen 



1 tari is aggressively building a U.S. 
; dealer base. Since Michael Dendo 
joined Atari as the company's vice 
president of sales, Dendo has been 
k working to change the apathy many 
industry insiders have toward Atari. 

Dpndo joined Atari Corp. in August '88 
..CO survived his position longer than any 
ui nis predecessors. Dendo was previously 
the western regional and national military 
sales manager tor Star Micronics, a manufac- 
turer of printers. At Star, Dendo managed dis- 
tribution to key accounts and volume 
merchants. Prior to Star, Dendo was the vice 
president of dealer sales for National Busi- 
ness Systems, a manufacturer of point-of-sale 
terminals and high-speed embossing equip- 
ment. National also produced ion deposition 
printers, which use ion beams instead of 
lasers to produce computer-generated 
printouts. 

Dendo lists Atari Corp.'s limited chain of 
retail outlets as the number one reason the 
ST has failed to make significant inroads into 
the U.S. personal computer market. He cites 
the limited supply of machines and poor deal- 
er relations as the major culprits behind 
Atari's current retail woes. 

Supplies of ST computers became limited 
in 1988 due to an industrywide shortage of 
memory chips. Like most personal com- 
puters, the ST uses a special high-capacity 
memory chip called a DRAM (Dynamic 
Random Access Memory). American protec- 
tionist legislation and supply restrictions by 
the Japanese electronics cartel, MITI, caused 
a worldwide shortage of DRAM chips in 
1988. Recently, Atari's supply crisis seemed 
to be reduced. 

"The DRAM crisis is over," said Sam 
Tramiel, president of Atari Corp., at a trade 
show late last year. Tramiel noted three con- 
tracts with major DRAM chip manufacturers 
to ensure an adequate supply of memory 
chips during 1989. Tramiel quoted current 
production quantities of ST computers to be 
between 50,000 and 70,000 machines per 
month. "Ninety percent of our production 
went to Europe last year," said Tramiel, ac- 
knowledging the starved supply conditions of 
the U.S. market. With increased production 
of ST computers, the U.S. market will again 



be readdressed with advertising and promo- 
tional plans absent since 1986. 



Lanpa^es 



The most popular development language 
for the ST is C. The language began as a so- 
lution to the problem of high-level program- 
ming languages becoming too isolated from 
a host computer's operating system and hard- 
ware—as is the case with Pascal. Program- 
ming in C is very much a hybrid between 
assembly and high-level language program- 
ming. This can be a mixed blessing when a 
programmer looks at the pitfalls built into the 
C language. To help combat the pitfalls, most 
C manufacturers have begun including a new 
type of debugging software with their C 
packages. 

Source-level debuggers evaluate C source 
code for errors before the source code is com- 
piled. The traditional method of finding bugs 
in programs is to compile the .source code, 
run the program and evaluate its performance. 
With a source-level debugger, a programmer 
is alerted to syntax errors, variable manipu- 
lation problems and program tracing. 

Mark Williams' C ($179.95 List) has a new 
source-level debugger, CSD ($69.95 List) 
available for its ST development language. 
Mark Williams' CSD operates like a C in- 
terpreter. Programs may be interrupted and 
variables or memory may be checked. In 
separate GEM windows, the source code, 
program evaluation and runtime history are 
displayed. Using CSD is advertised to cut C 
programming time in half. 

Deiitschland BASIC 

There is a new standard BASIC language 
for the ST in Europe. Atari Germany began 
shipping Omikron BASIC as the standard 
Atari ST BASIC language late last year. Since 
then, 11 other European countries have fol- 
lowed the Omikron standard. 

Omikron BASIC is close to MBASIC and 
GW BASIC for MS-DOS machines. Omi- 
kron's development package comes with an 
interpreter, compiler, and a large library of 
precompiled programs for use in .specialized 
applications. The Omikron library has rou- 
tines for GEM, MIDI, numerics, statistics. 



complex numbers and financial mathematics. 
The libraries make it easier for beginners to 
understand how to develop complex appli- 
cations. 

Omikron is a powerful BASIC. The pro- 
gram allows screen editing using the GEM 
system with menus and windows, and the lan- 
guage is rich with mathematical operators: 
19-digit precision, matrix operations, factori- 
al and hyperbolic functions. Built-in com- 
mands also .support QuickSorting of arrays, 
and Indexed Sequential Access Method 
(ISAM) file indexing methods for business 
database applications. 

Omikron recently attended COMDEX, in 
part to find an American distributor to handle 
IIS. and Canadian marketing of their 
products. If the U.S. version of Omikron 
BASIC is well packaged and supported, it 
could give GFA BASIC a run for its money. 

Mainframe communications 

Tozd Kooperacija— with a name like that, 
it must be a Yugoslavian company— showed 
an interface box recently developed to per- 
mit a Mega ST computer to emulate an IBM 
3270 terminal. Sounds like fun, doesn't it? 
When you consider the $30,000 IBM charges 
its customers tor a 3270 terminal, the $6,500 
price of a Mega ST and the Tozd interface 
box becomes appealing. 

The Tozd 3270 emulator box allows up to 
eight computers to emulate IBM terminals. 
Engineering .shops looking for a low-cost al- 
ternative to the Digital Equipment or IBM so- 
lution are finding the Mega ST to be a power- 
ful workstation. 



Eating frenzy 



Computer trade shows in general are a 
gigantic curio emporium. Almost every booth 
has something to take home. At a recent trade 
show we found WordPerfect giving away hats, 
while Intersect pushed out its business card- 
holders. Lots and lots of brochures were 
given out, which created a high demand for 
plastic bags. The inevitable outcome is a bag 
frenzy. The little Microsoft bag holds about 
ten brochures and fits snugly into the larger 
Packard Bell bag. The Xerox bag swallows 
up the Packard Bell bag with ease. But the 
MacWorld bag, which boasts dimensions that 
exceed two yards of plastic, gobbled up all 
the competition. 

Frank Cohen has been developing Atari 
programs since his first commercial product. 
Clowns & Balloons. You may contact him 
directly on CompiiSeiye (76004,1573) and 
GEnie (FRANK.COHEN). or by writing to 
P.O. 14628, Long Beach, CA 90803-1208.^ 
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Reviewed by Matthew J.W. Ratcliff 

Crime Buster is a hot new light-gun game 
from James Zalewski, the author of the popu- 
lar Banryard Blaster. In this game, the mob- 
sters are trying to take over the city, and it 
is up to you, the hottest cop in town, to clean 
it up. 

This one- or two-player game sports first- 
rate graphics, excellent sound effects, and 
light-gun accuracy that is top-notch (notice- 
ably better than Bug Hunt and Crossbow, the 
same as Barnyard Blaster). 

After blasting the one- or two-player sign 
and shooting to select one of 12 precincts on 
the city map, you hit the road in your police 
car, lights flashing. Your patrol car drives 
along the road, right to left, viewed from 
overhead. Some cars pass you, or you drive 
past them. Cars with stripes on them have 
crooks inside, and they are out to get you. 
The most logical thing to do is point your gun 
at the offending mobster's car and blast away, 
but nothing happens. There is a series of five 
arrows at the bottom right of the display, 
pointing from west to east at various angles. 
Shoot at one of these arrows to determine the 
direction of the bullets from your car at the 
criminals' car. 

This is a frustrating screen to navigate. 
While you try to shoot the right arrows or hit 
the slider arrows to their left to adjust your 
car's position on the screen, the bad guys are 
blasting away with their tommy guns. It is dif- 
ficult to get past this screen without simply 
holding your gun directly in front of the ar- 
rows and rapid-firing. Author James Zalewski 
admits he is disappointed with this one game 
screen, but it was Atari's specifications he had 
to meet. 

At the end of a short and harrowing drive, 
you are at your first destination. After clean- 
ing up the first precinct, you will no longer 
have to drive again, so long as you confinue 
to select adjacent areas from the city map that 
are within walking distance. 
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You must clean up four types of hideouts. 
At the warehouse you will find gangsters pop- 
ping up from behind crates and boxes, ap- 
pearing in windows above and entering a door 
below. You might think it's time to shoot first 
and ask questions later. It isn't quite so sim- 
ple, however, since there are innocent 
bystanders mixed up in this gun battle. Any 
time a pretty lady or a buxom blonde pops up, 
hold your fire. Ladies should never be shot 
at. Sometimes a kid will pop up, wearing a 
beanie and firing away like a big-time hood. 
Shoot him before you get plugged. Always 
make certain he has a gun in his hand and 
not a lollypop. Little kids with candy should 
not be shot at. Sometimes a fella will walk 
through a doorway, and then move on. Don't 
shoot him unless he pulls a gun and begins 
firing at you. 

Any time the wrong person is shot, it costs 
you five bullets from your limited supply, 
which can result in an early demise for you. 
Blast all the bad guys with bullets to spare 
and move on to the next precinct. In the ware- 
house, in the alleys or in the downtown 
scenes, you will find street lights. The 
documentation doesn't mention it, but if you 
shoot these lights out, the gangsters' shoot- 
ing accuracy will drop by 50% so that you 
die less often. 

Down at the pier you may have the most 
fun, blasting the bad guys who pop up in the 
windows on the Sea Witch. Sometimes scu- 
ba diving hoods will surface in the water off 
to the right of the pier. Occasionally a young 
beauty floating in an inner tube will come 
along to distract you as well. On this screen 
there are fewer places for the hoods to pop 
up, so it seems easier to clean up. Zalewski 
has paid great attention to detail: The hats fly 
off the heads of blasted gangsters, they show 
painful expressions when you plug them, and 
even the scuba mask cracks when one of the 
divers is shot. 

Over in the alley there are many windows 
and an open doorway to keep a sharp eye on. 
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The gangsters are heavily armed and will stop 
at nothing to prevent you from busting up 
their ring. Lots of innocent bystanders make 
the alley tough to clean up. 

When you get downtown, the battie rages 
to a peak. There is an Army Surplus store 
and Z's Bar and Grill brimming with bad 
guys. They appear in the windows, doorways, 
and even from under a manhole cover in the 
street. This screen seems to be the toughest 
to complete. 

Each time you are killed, an impressive 
skull-and-crossbones is displayed. You are a 
cat of three lives, but that can be extended. 
After about the sixth area has been cleaned 
up, some special characters will begin to pop 
up occasionally. Blasting them may result in 
a bonus life or extra bullets. Some can cost 
you dearly as well, according to the author. 
These are not mentioned in the documenta- 
tion and are left for the player to discover. 
There is one character you will recognize, 
however, if you have ever played Banryard 
Blaster. These tidbits from James Zalewski 
enticed me to keep playing the game long and 
hard until I could complete all 12 precincts 
and finish the game, receiving a Crime Buster 
rating. 

The game is played until either the hood- 
lums get the best of you, or you have cleaned 
up the city. A final rating, from Mobster 
through Detective, Unpluggable, and ulti- 
mately Crime Buster is presented. This is a 
thoroughly enjoyable game, even after com- 
pleting it once. It is a lot of fun to set up a 
friendly competition with friends in the two- 
player mode as well. 

Crime Buster is an impressive light-gun 
game. I am looking forward to more excel- 
lent works from James Zalewski and Atari 
Corp. , which has been turning out some fine 
tides since the beginning of 1989. 

Matthew Ratcliff, a frequent contributor 
to ANALOG Computing, lives in St. Louis, 
Missouri, with his wife and two children. SR 



macro is a sequence of keys that can 
be called up by pressing a single key. 
For instance, I could define a macro 
to type out LOAD "D:", and from 
that point on 1 would need only to 
typeone keystroke to type that string. If 
you're a slow typist, macros can improve your 
efficiency when it comes to programming. 

Usin^ the Macro Editor 

Macro Editor is designed to be as easy to 
use as possible. All you need to do is type 
in Listing 1, check your work with BASIC 
£(-///(-«■ //(found elsewhere in this issue), save 
it to disk and type RUN. Macro Editor al- 
lows a maximum often macro keys. Macros 
are activated by typing Shiit+Control+//, 
where ft is a number between and 9. Whea 
you run Macro Editor, you will be prompted 
for each macro key. Use Start to tell the com- 
puter you are done entering one macro and 
to go to the next. 

When you're finished, the program will ask 
if you wish to create an AUIORUN.SYS file. 
If you answer no, the macros will work, but 
will be lost when you turn the conipuier off. 
By creating an AUTQRUN.SYS file, you are 
telling the computer to set up your macros 
every time you turn on your computer and 
boot DOS. It should be noted that the AIJ- 
TORUN.SYS can be placed on a disk with- 



out Macro Editor, both are stand-alone 
programs. You can also run Macro Editor 
repeatedly; for instance, iy booted with cer- 
tain macros activated (with an AUTO- 
RUN. SYS on my disk), or had already run 
Macro Editor once, I could run it again and 
change the macros. Bui remember, you miist 
answer "Y" to the prompt if you wish to 
make the change to an AUTORUN.SYS. 

Obviously there are many uses for the 
macros other than enlcriug BASIC com- 
mands. F'or iastaiice, if you are a Sparta-DOS 
or DOS XL user, you could define a macro 
to type out DIRliCTORY < Return > for 
you. If you are a hartl-tlrive user, a macro can 
type out a long pathname to get to a file. 

It is also possible to have multiple sets of 
macros. Rename (he first AUTORUN.SYS 
created to Ml. Then rename the second one 
generated as M2. Type Ml or M2 from the 
Dn: prompt to change which set of macros 
is currently active. 

A word processor is another good appli- 
cation lor using macros. If ycxi use a word 
often, you could assign it a macro. To add 
the macro program to another application 
program, use DOS copy. Copy from the ap- 
plication to AUTORUN.SYS/A. The "A" 
stantls for "append" and tells DOS to append 
the application over the macro program. Note 
that Macro Editor may not work with ail ap- 
plication programs. It should work with most 



languages, however. 

Macro Editor is Resetproof. In addition, 
if you don't intend to use all ten macros, you 
can define only the ones you want and then 
hit Break to save time; 
■ Macro Editor resides on page six— almost 
all of page six — so keep this in mind before 
attempting to u.se other machine-language 
utilities, which also use page six. 



Fraitk Seipel is an 18-year-old resident of 
Colnntlnis, Ohio. He has been bttercsted in 
pro^raniniin)> A tari < ■oinpiiters for six yea 
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MACRO EDITOR 



LISTING 1: BASIC 



MACRO EDITOR 
by Frank Seipel 

COPYRIGHT 1989 
BY AHALOG COMPUTING 



it 

* 
* 



1 REM MXKKXKKKKKKXXXXXXXKMKKKXKKKKXK 

2 REM » 

3 REM * 

4 REM * 

5 REM « 

6 REM » 

7 REM KXXXXXXXXKXXKKXXXXKKKKXXXXXXXK 

8 REM 

18 GRAPHICS 17:P0KE 719, 14 : POSITION 0, 
6:? «6;" i;<=fJiI.M;»«;^Tff-T<E " ; ACTigE = PEE 
KC1536J=169 

19 ? «6:? tt6;" BY FRANK 5EIPEL"!? tt6 
:? »6:? tt6:? tt6;" please wait" 

20 FOR 1=1536 TO 1672!READ D : POKE I,D: 
NEXT I 

25 GRAPHICS fl:IF NOT ACTIUE THEN TRAP 
28 :OLD=PEEK £15351 :POKE 1535, 164 : K=U5R 
C1535J:P0KE 1535, OLD 

28 ? :? "Enter Macros. Hit <5tart> af 
!? "enteri ng each Macro. Any" 
"H333TiaiH keypresses will be part 
I? "the Macro.":? 
'A Macro is a string of text — ": 



ter' 

29 ? 
of 

30 ? 



? "for instance, you could define" 

31 ? "Shift+Control+0 as LIST <Return> 
":? "with this prograM — and then typ 
e" 

32 ? 

" ! ? 

33 ? 
p" : ? 



"Shift+Control+0 instead of LIST. 
? "This prograM can be used to" 
"redefine the Macros in MeMory, o 
"write out an AUTORUN.SYS file to 



34 ? 
lly" 



!OFFSET=0:OFFTABLE= 



for next page":G 
:? "Sum length o 

After using a": 



"your disk, which will autoHatica 
? "install your Macros every tiMe 
you":? "boot-up.":? 

35 OPEN ttl,4,0,"K: 

1673:DTABLE=1686 

35 ? :? "Hit <Return> 

ET ttl,X:? CHRStl25J :? 

f all Macros May" 

37 ? "not exceed 128. 
? "Macro, you May not use it again unt 
il" 

38 ? "you have typed somb other key, o 
r":? "used another Macro key.":? "Clf 
this is a pro bleM, just hit" 

39 ? "HIHiri3M before executing the Ma 
cro)":? 

40 FOR 1=0 TO 9 

42 POKE OFFTABLE+I, OFFSET 
50 ? :? "Enter Macro for k! ! WtUiJ. l iV ra7fT 
[5";CHR$CI+48+l28J :? " — >"; 
60 IF PEEKt53279)=6 THEM GOTO 140:REM 
»5AUE» 

70 IF PEEKt764)=255 THEN GOTO 60 
80 POKE DTABLE+0FFSET,PEEKt764) :GET »1 
,X:? CHR$tX); 

130 0FFSET=0FFSET+1;G0T0 69 
140 POKE DTABLE+0FF5ET,255:0FFSET=0FFS 
ET+1:F0R D=l TO 50O;NEXT D:NEXT I 
200 ? :? :? "Would you like to Make th 
ese":? "your default Macros [i.e., wou 
Id you" 

210 ? "like to write an AUTORUN.SYS":? 
"consisting of these Macros and the": 
? "Macro prograM to Dl: ? <Y/H> — >"; 
220 GET «1,X:IF K=A5Ct"y") OR X=A5Ct"Y 
"J THEN ? "Yes":? :? "Working. . .":G0TO 

30000 

230 ? "No":END 

29010 DATA 169,0,141,149,6,165,12,141, 

46,6,165,13,141,47,6,169,23,133,12,169 

,6,133,13,160,48 

29020 DATA 162,6,169,6,32,92,228,173,1 

49,6,201,1,240,6,169,1,141,149,6,96,76 



,224,7,72,138,72,173,147,6 

29030 DATA 208,44,173,9,210,197,0,240, 
1 17, 133, 0,162, 0,189, 127, 6, 205, 9, 210, 240 

,11,232,224,10,208,243 
|29O60 DATA 104,170,104,76,95,228,169,1 

,141,147,6,189,137,6,141,148,6,76,80,6 

,174,148,6,189,150,6,201,255,240,9 
|29200 DATA 141,252,2,238,148,6,76,80,6 

,169,0,141,147,6,76,80,6,242,223,222,2 

18,216,221,219,243,245,240 

30000 CLOSE Ol:0PEN ttl, 8, 0, "D : AUTORUN . 

SYS" 

30010 START=300:XEND=318:GO5UB 31000 

30020 START=1536:XEND=1791:G0SUB 31000 

30030 PUT «1,226:PUT ttl,2 

30040 PUT ttl,227:PUT ttl,2 

30050 PUT «1,0:PUT ttl,6 

30060 CLOSE 01:END 

31000 PUT ttl,255:PUT ttl,255 

31010 CELL=START:G0SUB 31200 

31020 PUT «1,L0W:PUT ttl,HI 

31030 CELL=XEND:G0SUB 31200 

31040 PUT «1,L0W:PUT »1,HI 

31050 FOR I=START TO XEND 

31060 PUT «1,PEEKCI) :HEXT I 

31200 HI=INT CCELL/256) : L0W=CELL-HI»256 

[RETURN 




CO 

09 



GS 










A."''*"*' 



0100 
Olio 




0120 






0130 




0140 


« written by: Frank Seipel * 


Q15G 


W K 


0160 


» Decewber 30, 1988 m 


0170 
0180 
0190 


* M 




OZOO 


5YSUBU = SE45F 


OZIO 


5ETUBU = SE45C 


0220 


:H - S02FC 


0230 


<BC0DE = SDZ09 


0240 


.ASTKEY = SOO 


0Z5D 


X= 50600 


0260 


lda no 


0270 


5TA FIRSTRUH 


0280 


LDA 12 


0Z9D 


5TA D05JUHP+1 


03DD 


LDA 13 


0310 


5TA DOSJUMP+2 


0320 


LDA IIIHIT&Z5S 


0330 


STA 12 


0340 


LDA aiNIT/256 


0350 


5Tfl 13 


0360 INIT LDY tI5TART«255 


0370 


LDK K5T0HT/2S6 


0380 


LDft 06 


0390 


J5R SETUBU 


0400 


LDA FIRSTRUH 


0410 


CMP «1 


0420 


BEO D05JUMP 


0430 


LDA tJl 


0440 


STA FIRSTRUH 


0450 


BT5 


0460 


>OSJUMP JMP SFFFF 


0470 




0480 


Actual code starts here 


0490 




0500 


>TART PHA ; Save 


G510 


TKO 


0520 


PHA ; Save K 


0530 


LDA INPRDGRESS ;Already going 


0540 


BNE TYPEITOUT ; do next key 


0550 


LDA KBCODE ; COMpare key 


0560 


CMP LASTKEY ; to Jast- 


0570 


BEO EXIT ; quit if sawe 


0580 


STA LASTKEY ; Store last 


0S9O 


LDX no : zero index 


06DD LOOP LDA KEYC0DES,K ; Check if 


0610 


CMP KBCODE ; key is a 


0620 


BEO MACROPRESSED ; Macro key 


0630 


IHX ; inc X 


0640 


CPX aiO ; done? 


0650 


BNE LOOP : no; do nxt 


0660 EXIT 


0670 


Code to exit interrupt 


0680 


PLA 


0690 


TAX ; Restore K 


0700 


PLQ ; Restore A 


0710 


JMP 5YSUBU 


0720 MACR0PRE55ED 


0730 


Initiate Macro typing code 


0740 


LDA ni J Tell interrupt 


0750- 


STA IHPR0CRE5S ; to get going 


0760 


LDA OFFSETS, X J get Offset 


0770 


STA CUROFFSET ; Store offset 


0780 


JMP EXIT ! quit 


0790 TYPEITOUT 


0800 


code to key Macro 


0810 


LDX CUROFFSET ; get Offset 


0B20 


LDA DOTA.K ; get data 


0830 


CMP 0255 J end Of Macro? 


0840 


BEO DONE ; yes; quit 


0850 


STA CH ; no; type 


D060 


INC CUROFFSET ; inc Offset 


0870 


JMP EXIT ; quit 


0B80 DONE 


0890 


End Macro code 


0900 


LDA UO ; Tell interrupt 


0910 


STA IHPROGRESS ; quit typing 


0920 


JMP EXIT ; and quit 


0930 KEYC0DE5 .BYTE 242,223,222,218,21 


6,221 


219,243,245,240 ; Codes for Hacr 


keys tinternal) 


0940 OFFSETS .BYTE 1,2,3,4,5,6,7,8,9,1 


; Reserve RAM for offsets 


0950 INPR0GRE55 .BYTE 500 


0960 CUR0FF5ET .BYTE SOO 


0970 FIR5THUN .BYTE $00 


0980 DATA C. 


0990 


Macro key data table ■ 
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FOR OUR DISK 
SUBSCRIBERS 

The following programs from this 
issue are on disk: 



THE ANALOG tt76 DISKETTE CONTAINS 14 
MAGAZINE FILES. THEV ARE LISTED BELOW: 



SIDE l: 

FILENAME. EXT LANG. 



LOAD ARTICLE NAME 



WARNING: BEFORE VOU RUN A PROGRAM, READ THE 

APPROPRIATE ARTICLE IN THE MAGAZINE. 
FAILURE TO DO SO MAV VIELD CONFUSING 
RESULTS. 

NOTE: ONLV PROGRAMS WITH THE .BAS, .COM 
OR .OBJ EXTENSION MAV BE RUN FROM 
THE MENU. OTHER PROGRAMS SHOULD BE 
LOADED AS INSTRUCTED IN THE LOADING 
NOTES AND MAV REOUIRE ADDITIONAL 
SOFTWARE AS LISTED BELOW. HOWEUER, 
VOU SHOULD HOT ASSUME THAT EUERV FILE 
WITH THE PROPER FILE EXTENSION WILL RUN 
FROM THE MENU. VOU MAV HAUE TO MOUE 
CERTAIN PROGRAMS TO A DIFFERENT DISK 
TO OBTAIN CORRECT RESULTS. 



EXT DESCRIPTION 



MACROEDT.BAS 
HACR0EDT.M65 
SHOOTER .OBJ 
GUN .ACT 
GUNREAD .ACT 
HANOI .BAS 
HEAPSORT.BAS 
QUIKSORT.BAS 
RAMDISK .OBJ 
RAMDISK .SVN 
SKEET .OBJ 
SKEET .M65 
MLEDITOR.BAS 
EDITORII.LST 



BASIC 

MAC/65 

ML 

ACTION! 

ACTION! 

BASIC 

BASIC 

BASIC 

ML 

ASSEM. 

ML 

MAC/65 

BASIC 

BASIC 



LOAD 
LOAD 
Ctt3) 
Cttl) 
Cttl) 
LOAD 
LOAD 
LOAD 
(«4J 
LOAD 
Ctt3) 
LOAD 
LOAD 
ENTER 



TO LOAD VOUR ANALOG DISK 



1) 



MACRO EDITOR 

MACRO EDITOR SOURCE 

SHARP SHOOTER 

SHARP SHOOTER SOURCE 

SHARP SHOOTER SOURCE 

RECURSION 

RECURSION 

RECURSION 

RAMDISK 800XL 

RAMDISK 800XL SOURCE 

SKEET SHOOT 

SKEET SHOOT SOURCE 

M/L EDITOR 

BASIC EDITOR II 



.M65 REQUIRES THE MAC/65 ASSEMBLER 

.AMA REOUIRES THE ATARI MACRO ASSEMBLER 

.ASM REOUIRES THE ATARI ASSEMBLER/EDITOR 

.ACT REQUIRES THE ACTION! CARTRIDGE 

■LGO REQUIRES THE ATARI LOGO CARTRIDGE 

.SVN REQUIRES THE SVNAPSE SVN ASSEMBLER 



INSERT BASIC CARTRIDGE fNOT REQUIRED FOR XE 
OR XL COMPUTERS) . 

2) TURN ON DISK DRIUE AND MONITOR. 

3) INSERT DISK IN DRIUE. 

4) TURN ON COMPUTER. CXL AND XE OWNERS: DO NOT 
HOLD DOWN OPTION KEV!) 



LOADING NOTES 



LOAD BASIC PROGRAM: 
ENTER BASIC PROGRAM: 
LOAD MAC/65 PROGRAM: 
ENTER ASM/ED PROGRAM: 
LOAD LOGO PROGRAM: 
LOAD SVH/AS PROGRAM: 



LOAD "D:FILENAME.EXT" 
ENTER "D:FILENAME.EXT" 
LOAD «D:FILENAME.EXT 
ENTER JtD:FILENAME.EXT 
LOAD "D:FILENAME.EXT" 
LOAD "D:FILENAME.EXT" 



ttl: SEE ACTION! MANUAL. 

tt2: SEE ATARI MACRO ASSEMBLER MANUAL. 

«3: MAV ALSO BE LOADED FROM DOS USING THE "L" 

OPTION OF THE DOS MENU. 
04: THIS FILE SHOULD BE TRANSFERRED TO ANOTHER 

DISK AND RENAMED "RAMDI8K.COM". 
«5: READ THE APPROPRIATE ARTICLE FOR INSTRUCTIONS 

ON USING THIS FILE. 



continued from page 15 

RECURSION 

|RSCLEyEL/2+64J; !REM Display level 
59 REM If there are entries to the lef 
t of PiyoT, change FIR5T and LAST to t 
he new linits and iMMediately sort 

68 IF FIR5T<PIU0T-1 THEH LA5T=PIU0T-1 : 
GOTO 20 

69 REM Restore the positions of unsort 
ed arrays tto the right) and sort 
79 IF LEUEL THEM FIR5T=A5C (FIRSTS fLEUE 
L-i))»256+ASC {FIRSTS CLEUEL J) 
75 IF LEUEL THEN Lft5T=fl5C (LASTS (LEUEL- 
1) )»256+flSC (LASTS (LEUEL> ) : LEUELrLEVEL- 
2!? "V;:GOTO 20:REM ESC/BACK SPACE = ^ 

79 REM ARRAYS is already sorted, so a 
siMple print is sufficient 

80 FOR A=:l TO COUNT:? ARRAYS ( (A-1J»5IZ 
E+1,A»SIZE) :NEHT A 

85 ? :? COUNTJ" records Used",RAM-COUM 
Tj" records left" 

|90 ? "Entry: "j:INPUT ASlIF AS="" THEN 
FIR5T=l:LA5T=COUNT:LEUEL=0!GOTO 20 : RE 
IM Call recursive sorting algorithM 
194 REM Sinple routine to tack entry to 

the end of ARRAYS 
!95 A=SIZE»COUNT:FOR B=l TO SIZElARRAVS 
(A+B)=" "JNEKT B:ARRAYS{A+i,A+LEM(AS)) 
rAStCOUNTzCOUNT+ltGOTO 90 C^ 



continued from page 38 




FI 

IF GunY > 95 THEH 

GunY = 95 
FI 

Shift = yshift (index) 

IF shift = 128 THEH 
GunY = GunY L5H 1 

ELSE 

GunY = GunY RSH Shift 

FI 

XX *= GunH 
yy ^- GunY 



RETURN 



FI 
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Attending the lat- 
est COMDEX 
show is one of 
the many jobs of this 
Atari reporter. I'm not 
complaining, but over 
the last seven years I 
have attended approx- 
imately 16 COMDEX 
and Consumer Elec- 
tronics Shows. I say 
approximately because 
in retrospect they all 
tend to blur together. 
Over the years, Atari, 
the computer industry 
and the technology 
have changed, but 
there is always some- 
thing new to see and 
report on. 

The 1989 Spring 
COMDEX (COM- 
puter Dealers Exposition) was held in Chica- 
go rather than Atlanta, the customary 
location. As a result, show attendance was 
down because of the cool weather. However, 
Atari made headlines with two new-product 
announcements and their renewed vigor for 
recapturing the U.S. ST market. 

COMDEX is held twice each year, and at 
the last show in Las Vegas, Atari was talking 
but not showing. There wasn't much for Atari 
to show then. But that was due in part to their 
new policy of not discussing new products 
unless they will be shipping in 60 days. Al- 
though we have heard these claims before. 
Atari was saying (at the time) that 1989 would 
be the year they would return in force to the 
U.S. market. 

It is well known that for the last several 
years Atari has been concentrating on the Eu- 
ropean market. With their limited human 
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by Arthur Leyenberger 

resources (Atari is a small company) and the 
recent DRAM (Dynamic Random Access 
Memory)-chip shortage, Atari was unable 
(and unwilling) to support ST sales in the 
United States. No advertising, fewer and few- 
er dealers and increasingly fewer new ST 
products from third-party vendors has left the 
domestic ST market to virtually wither away. 
And then there is the 8-bit market, which has 
seen little support from Atari for quite some 
time. 

Well, all of this is old news. Atari has been 
claiming they will "shine in '89," so to speak, 
and from what I saw at COMDEX they 
might do just that. National media attention 
was given to Atari's ST laptop computer and 
the new "pocket" MS-DOS computer called 
Portfolio. More important is Atari's new at- 
titude toward product availability. 



Atari returns 

with new 

products and 

renewed purpose 

I've briefly dis- 
cussed Atari's renewed 
purpose above. Ac- 
cording to Sam 
RTramiel, president of 
Atari Corp., the 
DRAM shortage is 
over (at least for 
Atari), so more STs 
can be manufactured 
and therefore be avail- 
able for the U.S. Fur- 
ther, with product 
availability comes a 
reason for advertising. 
Although we may not 
see much in the way of 
television and radio advertising, Atari says 
they are committed to advertise nationally in 
the print media. 

Atari readily concedes that they sacrificed 
the U.S. market in 1988 in order to maintain 
their position of leadership overseas. This 
means that they will need to work doubly 
hard in the areas of distribution and market- 
ing to increase sales, attract new dealers and 
court developers. One area of continued suc- 
cess in the U.S. is the MIDI (Musical Instru- 
ment Digital Interface) market. Atari claims 
to have 35 percent of this market. Interest- 
ingly, the majority of new ST and Mega deal- 
ers are music stores rather than computer 
stores. 

Atari was showing what will no doubt be 
a major success with musicians— the ST 
laptop. Originally named Stacy, and now re- 
named the Transportable, it was first dis- 
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cussed last November at the Fall COMDEX 
in Las Vegas. However, it was not shown offi- 
cially and consisted of a working prototype 
with exposed circuit cards and cables. Even 
the LCD screen was separate from the unit. 
A foam mockup of the final design was also 
seen last year, which, as it turns out, was 
similar to the final design. 

The Transportable being shown was a 
working pre-production unit housed in a 
locked Plexiglas display case. A series of con- 
tinuously running demos could be seen on 
the LCD screen. I had heard that the Trans- 
portable would be at COMDEX, but I feared 
the worst: that it would be too big, too heavy 
and unattractive. I'm happy to say I was 
wrong. The Transportable is attractive and 
about the size of other MS-DOS laptop com- 
puters. 

The Transportable weighs in at 15.2 
pounds, which is at the upper end of the 
weight range of comparable PC laptop com- 
puters. Using a 640- by 400-pixel supertwist 
LCD screen, the laptop offers the same reso- 
lution as the monochrome ST monitor. In ad- 
dition, one megabyte of memory and a single 
3 '/2 -inch (double-sided) floppy-disk drive are 
provided. According to Atari, an optional 
second floppy drive or hard disk can be ad- 
ded to the unit. 

The Transportable has all of the ports and 
interfaces of a regular ST or Mega ST, in- 
cluding monitor, serial and parallel floppy 
and hard disk, MIDI, mouse and joystick. It 
can run on AC power or use its non- 
replaceable internal battery pack. I have no 
idea how long the laptop will operate once 
the battery is fully charged, but I suspect it 
will be approximately 2-3 hours. 

One of the unique features of the Atari 
Transportable is a built-in trakball on the low- 
er right side of the keyboard. It is slightly 
larger than a ping-pong ball and used in place 
of a mouse to control the screen pointer. Two 
keys that function identically to mouse but- 
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tons are placed irrunediately above it. The 
trakball is a thoughtful addidon, since using 
a separate mouse on a laptop is somewhat 
cumbersome. 

I was able to spend a couple of minutes us- 
ing the Transportable and came away im- 
pressed. The keyboard was surprisingly 
good— similar to that on a Mega ST. Al- 
though the built-in trakball seemed strange 
at first, I'm sure I could get used to it. A 
mouse port is provided in case you want to 
use a normal ST mouse. 

With a list price of $1,500, the Atari Trans- 
portable should be a success, especially with 
musicians. When you consider that you can 
add a Spectre 128 cartridge to this laptop to 
run Mac software, it looks like Atari may beat 



Apple in the race to get a MacLaptop to mar- 
ket. And don't forget PC Ditto that gives MS- 
DOS compatibility. Having virtually three 
computers in one makes the Atari laptop 
unique and should increase its appeal. 

The Atari Portfolio was the other new Atari 
product at COMDEX. Billed as a hand-held 
MS-DOS computer, it contains DOS 2.11 in 
ROM, 128K of RAM (expandable to 640K), 
an 8-line by 40-character LCD display and 
a 63-key QWERTY keyboard. The Portfolio 
uses an 80C88 processor like the original 
IBM PC and sells tor $400. The unit is about 
the size of a videotape and weighs under a 
pound. Two standard "AA" batteries power 
the Portfolio for up to 48 hours of continu- 
ous use. 

Built-in software includes a word proces- 
sor, a spreadsheet that creates Lotus 
7-2-i-compatible files, an address/phone list 
program and an appointment calendar. An in- 
terface jack is provided for exchanging data 
directly with a PC via a "smart cable." The 
Portfolio can also accept either ROM cards 
for software or RAM cards for data storage. 
Even standard PC peripherals, such as mod- 
ems and printers, are said to be usable with 
the Portfolio by means of "card-cables" that 
insert into the RAM/ROM wafer slot. 

The Atari Portfolio is an attractive prod- 
uct that appears to be functional too. I was 
permitted to "use" the Portfolio for a couple 
of minutes and was impressed. The unit felt 
solid, the overall design was clean and the 
keys had a good response. I doubt if I could 
type an entire article using the teeny-weeny 
keyboard, but I could certainly enter short 
notes with practice. 

According to Atari, both the Transporta- 
ble and the Portfolio should be available by 
the time you read this. Products like these 
demonstrate that Atari is trying to move for- 
ward with innovative products. Both the 
laptop and the Portfolio are niche products 
that should appeal to more than just the tradi- 



with more Atari end users, Atari will be a 
stronger company. We'll all benefit from that. 
Atari was showing another new product of 
interest to ST users. The Megafile 44 is a hard- 
disk unit that uses a removable 44-megabyte 
cartridge. The cartridge sells for $150 and has 
a relatively fast access time of 25 milliseconds. 
The unit itself sells for $1,200 and will be avail- 
able by the time you read this. 



Other things 



Technology is still the watchword at COM- 
DEX. Intel introduced their new 80486 
microprocessor, which contains a math co- 
processor on the chip itself. It is primarily 
meant for the workstation and minicomputer 
markets. IBM had a prototype machine us- 
ing the new chip at the show. 

Several manufecturers of laptop computers- 
Mitsubishi, Toshiba, Sharp— were showing 
laptops with color LCD screens. Seeing color 
on a laptop screen is amazing, although the 
technology is still about a year from produc- 
tion. All of the models that were displayed 
were "under glass," and the companies re- 
fused to discuss any technical details. 

Hewlett-Packard was showing a new ver- 
sion of the excellent Deskjet Printer at COM- 
DEX called the Deskjet Plus. The Plus offers 
all of the features of the original model that 
has been available for about a year, plus much 
more. Using Inkjet technology that Hewlett- 
Packard pioneered a few years ago with their 
ThinkJet printer, the new model yields laser- 
printer-quality output at the price of a high- 
end dot-matrix printer. 

The Deskjet Plus can print text and graph- 
ics output at up to 300 dpi (dots per inch) 
resolution, just like a laser printer. Output is 
essentially indistinguishable from laser- 
printed output. However, the speed of print- 
ing is slower because the printer prints as it 
receives output from the a computer. The 
printer can print in draft mode at a speed of 
240 characters per second (cps). The speed 
of the letter-quality mode is 120 cps. Graph- 




ics output is slower. 

The most significant difference between the 
HP Deskjet and the new Deskjet Plus is 
throughput speed. Although draft- and letter- 
quality printing speed is still rated the same, 
throughput is said to be two to five times 
faster due to a faster microprocessor, paper 
pick-up mechanism and motor, which moves 
the paper through the printer in half the time 
of the original. 

The Deskjet Plus contains more built-in 
fonts: six portrait and four landscape. Fur- 
ther, landscape printing is now possible without 
the need for an optional font cartridge. In ad- 
dition, larger fonts are also included (up to 
30 points) and the Plus can print on legal- 
size paper. The Deskjet Plus sells for $995 
and the original Deskjet has been reduced to 
$795. 

Atari shuffles the deck, and 
other exciting tidbits 

Sig Hartmann, longtime sidekick of Jack 
Tramiel and veteran of Atari Corp. , has re- 
cently assumed the role of executive vice 
president of Atari Corp. and president of 
O.E.M. Sales. This post also encompasses 



government and institutional sales, but it is 
no secret that Atari has had difficulty break- 
ing into the mainstream business market, 
which makes Sig's new job even more 
challenging. Sig has held just about every 
post at Atari Corp. and has the energy to get 
things done. We wish him the best of luck 
in his new position. 

Other new faces at Atari include Joe Men- 
dolia, new V.P. of marketing, and Tony Saler- 
no, V.P. of U.S. Software. Joe came from 
Imagen and is now responsible for user-group 
support as well as Atari marketing. He will 
be primarily responsible for the strategy and 
not-so-trivial implementation of Atari's return 
to the U. S. market. I have him to thank for 
allowing me to get my paws on both the ST 
laptop and the Portfolio, even if it was only 
for a few fleeting minutes. Thanks, Joe. 

Tony Salerno comes from Borland Inter- 
national, a company specializing in utility 
and language software for the PC and Macin- 
tosh. Tony will be responsible for technical 
support, equipment sales and developer sup- 
port. Let's hope he is successful in these 
areas, especially with developer support. It 
would be great if Atari could support de- 
velopers the way other major companies do. 
A world-class effort would surely keep the 
existing developers in the Atari fold as well 
as attract new ones— something we clearly 
need. 

It's official. Shiraz Shivji has left Atari. 
Who is Shiraz, you might ask? Oh, just the 
so-called father of the Atari ST computer. 
Shiraz's engineering brilliance allowed Jack 
Tramiel to introduce the original ST four 
years ago. He has also been actively involved 
in the Mega series and other peripheral 
products. We wish Shiraz success in his new 
endeavors and hope Atari can find an equal- 
ly talented engineer to replace him. 

Arthur Leyenherger is a freelance writer 
who lives in beautiful New Jersey. He can be 
reached on CompuServe at 71266,46 or on 
DELPHI as ARTL. e\ 
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THE 

CHESSMASTER 

2000 

The Software Toolworks 
One Toolworks Plaza 
13557 Ventura Boulevard 
Sherman Oaks, CA 91423 
(818) 885-9000 
XL/XE cartridge: $39.95 



Reviewed by Matthew J.W. Ratcliff 

The Chessmaster 2000 is the most sophisti- 
cated chess program since Sargon III. This 
finely crafted program and its complete 
documentation will help you learn to play, 
from the basics through tournament-level ex- 
pertise, with some 100 classic sample games 
on the data disk. The sample games begin 
with Greco in 1620 and go through the Kar- 
pov versus Kasparov world championship in 
1985, ending with two examples of Chess- 
master vanquishing Sargon III in 1986. 

Chessmaster comes with a book that in- 
troduces chess basics, with all the moves and 
terminology explained. A basic point system 
for each captured piece is presented to help 
you keep track of their value during game 
play. Information on joining the U.S. Chess 
Federation is also provided, if you want to 
get really serious about the game. 

The reference continues with a history of 
chess as it developed into its modern form. 
Another brief history of the game is presented 
in terms of the world champions and their 
playing styles. Next, a section on chess and 
machines leads us from the earliest mechan- 
ical players through the latest computer-based 
game-playing algorithms. Finally, the refer- 
ence guide presents the 100 classic sample 
games, which are on the enclosed data disk, 
followed by sample Chessmaster problems, 
solutions and a bibliography. I found this en- 
tire book fascinating reading. 

A handy reference guide provides informa- 
tion on booting the program and executing 
game controls. The escape key toggles be- 
tween the main menu screen and the finely 
detailed graphic display of the chess board 
and pieces. Game control may be carried out 
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with the joystick or via keyboard input. An 
alphanumeric grid is displayed around the 
board, which is used for positional references 
of the pieces. 

Chessmaster accommodates newcomers by 
allowing them to turn on the easy mode and 
select a play level of zero. Castling, en pas- 
sant (a move that allows the capture of an op- 
ponent's pawn "in passing") and pawn 
promotion are fully supported. At any time, 
you may simply press Return to change sides 
and take on the opponent's pieces as your 
own. A classic game may be loaded and 
played for your learning enjoyment. You may 
also save a game to disk to finish at a later 
time if so desired. Complete disk- 
management functions are provided for 
cataloging games, deleting, loading, solving 
mates and printing a game history. 

Chessmaster will play in a "coffeehouse" 
mode, if you choose, playing a more relaxed 
style suitable for casual players, rather than 
adhering to a strict tournament format. 

As you become more adept at the game, 
you may program Chessmaster to play from 
level through 19. The higher the level of 
play, the tougher Chessmaster is to beat and 
the longer it will take to make each move. 
You may toggle the easy mode at any time 
as well, thus disabling Chessmaster's think- 
ahead capability while waiting on your move. 

Play modes may be selected for human 
against Chessmaster, human against human 
or Chessmaster against itself. If you want to 
see how this program considers each move, 
you may "show thinking." When this is ena- 
bled, each possible move Chessmaster con- 
siders will be displayed. As you learn the 
game, you may request a hint, and the best 



possible move for you to make will be 
revealed. 

The teach mode is excellent for novices or 
rusty players like myself. Whenever you se- 
lect a piece, all possible moves are highlight- 
ed on the board. Teaching may be toggled on 
or off at any time, as can sound effects, which 
are simple audio cues for each move. 

Chessmaster provides complete control 
over screen and chessboard colors, and you 
may rotate the board for a different perspec- 
tive. According to the documentation, either 
a two- or three-dimensional graphic display 
may be selected, but it seems the Atari 8-bit 
version works only in the 2-D mode. 

To play out hypothetical situations, you 
may set up the board. An additional menu 
and set of controls make customizing a board 
layout simple. This can be used to set up a 
handicap against a better player or to help you 
plan out strategies alone. 

The Chessmaster 2000 is a superb game 
for two players who don't want to mess with 
the clutter of a real chessboard and pieces, 
and who want the convenience of a quick and 
safe way to store an incomplete game. With 
a printout of the game play, you can go back 
and study where you went wrong or simply 
play it back on the screen. Chessmaster will 
also serve as a first-rate chess tutor and help 
boost your status in the chess club. It is a fine- 
ly crafted product, with complete documen- 
tation and near-perfect game play to hone 
your skills and make you a first-rate chess 
player. 

Matthew Ratcliff, a frequent contributor 
to ANALOG Computing, lives in St. 
Louis, Missouri, with his wife and two 
children. (3 
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YOUR ATARI RESOURCE CENTER 

ANALOG Computing continues to offer exciting products for you and your Atari 
Computer. And we're the only magazine for the Atari 8-bit computer line that hasn't 
allowed its content to be virtually taken over by coverage of the Atari ST, We in- 
clude only a minimal amount of ST material so that you can stay informed of what's 
happening with the 8-bit computer's brother. 



Whether you own a reliable ol' 400 or 800, a shiny XL, new XE or 
even an XE Game Machine ... we offer usable utilities, entertaining 
educational software, dynamite disk programs and great graphics 
and games. In fact, our readers still use ANALOG programs that were 

published over five years ago! 



So when software companies turn their 
heads to other computers, you can turn 
yours to the one that supports your 8-bit Atari. And 
that's ANALOG Computing. 

ANALOG'S Best! Over 88 of ANALOG Computing's best and 
^^^^ most requested programs are now available on this series 

^^^^S^ of ten diskettes. The programs are all ready to run and come with complete 

^^^^^^^^^ documentation on the flip side of each floppy diskette. Select from Graphics, 
Educational, Utilities 1, Utilities 2, Disk Utilities and Games Disks I, 2, 3, 4 
and 5. Only $9-95 each (plus $1.50 shipping per order). Specify disk title 
when ordering. 

Unlock the secrets of your Atari Computer! This handy 1 6-page pocket reference 

card covers information you need when programming your 8-bit. Error codes, internal 

codes, PEEK & POKE locations, machine-language aids, graphic mode specs and BASIC commands 

with abbreviations are only some of the helpful items at your fingertips. 

The ANALOG Computing Pocket Reference Card, only $7.95 each! 

(Plus $1.50 shipping and handling.) 
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Devotes^O* of Its Pages to the Atari ST? 



An Atari 8-bit Extra. While other "Atari" 8-bit magazines just make claims on how they 

cover your machine, we come through! Over 130 pages of new, never before published 

material. Programs like Easy Type, Dragon Chase, Pastels, Display List Mod, Tactics, Trivia 

and Create-a-base are all documented and ready to type in and run. . .all for just $8.95! 

(Add SI. 50 for shipping.) 



Get the Extra on disk! This special offer for Extra owners gets you all of the programs 
in an Atari 8-bit Extra on disk. Avoid typing errors, hours of tedious typing and frustration. 
Just plug in the disk and you are ready to roll! Two, ready-to-run double-sided floppies, $24.95. 
(Disks only. Atari 8-bit Extra sold separately. Please add $1.50 for shipping,) From the 




magazine that always gives you something Extra. 
Why let your fingers do the walking when your 
Atari can do the running? Get this issue on 
disk! Every month we offer all of the pro- 
grams in ANALOG Computing on disk . . . 
ready to run. Even if you don't know 
anything about machine language or 
don't own the Action! cartridge, we 
offer programs in converted formats 
so they'll run on your Atari com- 
puter. Get this issue for just 
$12.95 (plus $1.50 
shipping). 
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ANALOG COMPUTING OFFICIAL ORDER FORM 



Use this coupon to order the most complete up-to-date products 


specifically designed for your ATARI PC. 




ANALOG'S BEST-Graphics Disk S 9.95 


s 


ANALOG'S BEST— Educational Disk $ 9.95 


s 


ANALOG'S BEST-Utllltles #1 S 9.95 


ANALOG'S BEST-Utllltles #1 S 9.95 


s 


ANALOG'S BEST-Disk Utilities S 9.9S 


S 


ANALOG'S BEST-Games #1 $ 9.95 


S 


ANALOG'S BEST-Games #2 $ 9.95 


s 


ANALOG'S BEST-Games #3 $ 9.95 


s 


ANALOG'S BEST-Games #4 $ 9.95 


s 


ANALOG'S BEST-Games #5 S 9.95 


s 


ANALOG COMPUTING-POCKET REFERENCE CARD. .S 7.95 


5 


ANALOG COMPUTING-8-bit EXTRA S 8.95 


s 


ANALOG COMPUTING-e-bit EXTRA (on disk) 524.95 


s 


ANALOG MAGAZINE ON DISK (please specify issue). . . .512.95 


5 


SHIPPING AND HANDLING-add 5 1 .50 for each product ordered 


< 


TOTAL ORDER 


s 


n Payment Enclosed Charge My n VISA D Master Card 1 


Card # Fxp. 






Namfi 




City State 7ip 


Make checl<s payable to: LFP, Inc. P.O. Box 67068, Los Angeles, 


CA 90067. 


Your order will arrive in 4 to 6 weel<s — WATCH FOR IT! 


ZIHYY 



California residents add 6.5% sales tax on all orders except back issues. 
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